Delphi7最佳登录窗体设计

Delphi7我们这里用登录窗体来做演示。输入正确用户名和密码后，登录窗体释放，显示主窗体。

方法/步骤

1.打开Delphi7集成开发环境，在默认工程的Form1窗体放置一个Label1控件，拖动控件边界调整大小，并将Object Inspector的AutoSize设置为False。

2.点击File-New-Form新建一个窗体Form2。并在窗体放两个Edit控件，两个Label控件，一个Caption为;用户名，一个Caption为：密码，分别对应两个Edit框，再放两个Button,Caption分别为登录和取消

 3.在Unit2.pas文件中添加Login()方法，代码如下：

function  Login():Boolean; //方法声明

implementation

{$R *.dfm}

function  Login():Boolean; //方法定义

var

  FormLogin:TForm2;

begin

  FormLogin:=TForm2.Create(nil);

  Result := FormLogin.ShowModal = mrOk;

  FormLogin.Free;

end;

4.双击登录按钮，在OnClick时间响应方法中写如下代码：

procedure TForm2.Button1Click(Sender: TObject);

begin

  if (Self.Edit1.Text = 'abc')  and (Self.Edit1.Text = 'abc') then

  begin

    ModalResult:=mrOK;

  end;

end;

当用户名和密码都是abc时正常释放登录窗体

5.点击Project-Options弹出Project Options for Project1对话框，在Forms页签下auto-created forms仅保留Forms1.

 6.点击Project-View Source改写代码如下：

program Project1;

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin

  Application.Initialize;

  if Login() then

    Application.CreateForm(TForm1, Form1);

  Form1.Label1.Caption:='登录成功'；

  Application.Run;

end.

7.F9运行程序，在登录窗体用户名密码均输入abc，登录窗体消失，Form1窗体出现，正常实现了登录功能

 

注意事项

• 这个是最佳的登录窗体设计，比什么在Form1的Create方法中显示Form2好很多