收藏登陆界面的写法。

[copy_paste]

一般来说，很多程序是需要写登陆窗口的，光我接触的登陆窗口的写法，一个程序有一种，N个就有N个，所以想收集一下大家的，看看有什么不同，特点。

条件：
一个Project, 一个MainForm, 一个LoginForm;
LoginForm两个Button， 一个OK(mrOK), 一个Cancel(mrCancel)

大家任意发挥。

我的:
AppProject.Dpr

Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;

MainUnit:

constructor TMainForm.Create(AOwner: TComponent);
begin
if not IsLogin(Self) then
begin
Application.ShowMainForm := False;
Application.Terminate;
end;
end;

LoginUnit:

function IsLogin(AOwner: TComponent): Boolean;
begin
with TLoginForm.Create(AOwner) do
try
Result := ShowModal = mrOK;
finally
Free;
end;
end;

[xiaozhanger]

procedure TMainForm.FormShow(Sender: TObject);
begin
login:=Tlogin.Create(application);
try
login.ShowModal;
finally
login.Free;
login:=nil;
end;
end;

[xiaozhanger]

no.1

[888888888888]

学习

[jakefj]

我有兩種寫法:1>在Project代碼中寫
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
2>是在主窗口顯示之前觸發login窗口
application.createform(tlogform,logform);
logform.showmoudle;

[catch2008]

gz