Delphi7我們這里用登錄窗體來做演示。輸入正確用戶名和密碼后，登錄窗體釋放，顯示主窗體。

方法/步驟

1.打開Delphi7集成開發(fā)環(huán)境，在默認(rèn)工程的Form1窗體放置一個Label1控件，拖動控件邊界調(diào)整大小，并將Object Inspector的AutoSize設(shè)置為False。

2.點擊File-New-Form新建一個窗體Form2。并在窗體放兩個Edit控件，兩個Label控件，一個Caption為;用戶名，一個Caption為：密碼，分別對應(yīng)兩個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時間響應(yīng)方法中寫如下代碼：

procedure TForm2.Button1Click(Sender: TObject);

begin

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

? begin

? ? ModalResult:=mrOK;

? end;

end;

當(dāng)用戶名和密碼都是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窗體出現(xiàn)，正常實現(xiàn)了登錄功能

?

注意事項

• 這個是最佳的登錄窗體設(shè)計，比什么在Form1的Create方法中顯示Form2好很多