Delphi7我们这里用登录窗体来做演示。输入正确用户名和密码后，登录窗体释放，显示主窗体。
工具/原料
Delphi7
Windows电脑
方法/步骤
1、打开Delphi7集成开发环境，在默认工程的Form1窗体放置一个Label1控件，拖动控件边界调整大小，并将ObjectInspector的AutoSize设置为False。
2、点击File-New-Form新建一个窗体Form2。并在窗体放两个Edit控件，两个Label控件，一个Caption为;用户名，一个Caption为：密码，分别对应两个Edit框，再放两个Button,Caption分别为登录和取消。
3、在Unit2.pas文件中添加Login()方法，代码如下：functionLo壹执慵驾gin():Boolean;砖镑苣逢//方法声明implementation{$R*.dfm}functionLogin():Boolean;//方法定义varFormLogin:TForm2;beginFormLogin:=TForm2.Create(nil);Result:=FormLogin.ShowModal=mrOk;FormLogin.Free;end;
4、双击登录按钮，在OnClick时间响应方法中写如下代码：procedureTForm2.幞洼踉残Button1Click(Sender:T晦倘佳鳎Object);beginif(Self.Edit1.Text='abc')and(Self.Edit1.Text='abc')thenbeginModalResult:=mrOK;end;end;当用户名和密码都是abc时正常释放登录窗体
5、点击Project-Options弹出ProjectOptionsforProject1对话框，在Forms页签下auto-createdforms仅保留Forms1.
6、点击Project-外狒芙梨ViewSource改写代码如下：programProject1;usesForms,Unit1in'Unit1.pas'{僻棍募暖Form1},Unit2in'Unit2.pas'{Form2};{$R*.res}beginApplication.Initialize;ifLogin()thenApplication.CreateForm(TForm1,Form1);Form1.Label1.Caption:='登录成功'；Application.Run;end.
7、F9运行程序，在登录窗体用户名密码均输入abc，登录窗体消失，Form1窗体出现，正常实现了登录功能
