如何使登陆窗体动态创建？(50分)

主窗体不是登陆窗体，我如果想动态创建登陆窗体如何来写程序？

1.要定义一个loginform，设visible=false;formstyle=fsnormal;
登陆成功了将modalresult设成mrok，登陆不成功将modalresult设成mrnone;
取消登陆将modalresult设成mrcancel,同时将application终止掉;
2.在mainform的create事件中写
with Tloginform.create(nil) do
begin
showmodal;
free;
end;
ok!

楼上说的我还不太明白，能不能把示例写的再详细一点

to kds :
你可以在主窗体的oncreate事件中，动态创建登陆窗体的。
procedure TMainForm.FormCreate(Sender: TObject);
begin
Loginform :=Tloginform.create(nil);
LOginForm.showmodal;
LoginForm.free;
end;

另外，你还可以在主窗体的单元文件中的 initializtion部分加入以上代码实现。
首先你要在 “end.”前加入Initializtion,如
Initialization
Loginform :=Tloginform.create(nil);
LOginForm.showmodal;
LoginForm.free;

然后在登陆窗体中的一个按钮事件中，进行判断：
if 身份正确 then self.modalResult :=mrok
else self.modalResult :=mrnone;
如果要取消登陆，则self.modalResult :=mrcancel;

知道了吗？

多人接受答案了。