Delphi 管理系统中的登陆窗体制作方法?

来源：百度知道 编辑：UC知道 时间：2024/05/26 07:18:39
请高手指点一下在Delphi中制作登陆窗体的几种方法。
另外我在主窗体的OnShow事件中不能使用登陆窗体的ShowModal方法，且提示错误是'Cannot make a visible window modal'是怎么回事？

都在dpr 工程里写吧，这样看着清爽些

begin
Application.Initialize;
Application.CreateForm(TfMain, fMain);
if fLogin = Nil then
fLogin := TfLogin.Create(Nil);//登陆窗体
try
fLogin.ShowModal;
if fLogin.BtnOk.ModalResult = MrOk then //登陆成功
begin
Application.Run;
end;
finally
FreeAndNil(fLogin);
end;
end.

把你的窗体visible设置为false