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: T晦倘佳鳎Object);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窗体出现，正常实现了登录功能