制作登录窗体

Question

主窗体先隐藏，显示登录窗体，验证后显示主窗体（屏蔽Alt+F4)
多谢各位

Answer 1

把frmLogin的BolderStyle设为bsDialog
然后在frmMain中用frmLogin.ShowModal显示frmLogin,并在这之前把自己隐藏
procedure TfrmMain.Button1Click(Sender: TObject);
begin
Self.Visible:=False;
frmLogin.ShowModal;
end;//屏蔽Alt+F4
procedure TfrmLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;

Answer 2

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmDataModule, frmDataModule);
  Application.CreateForm(TfrmChangeWD, frmChangeWD);
  Application.CreateForm(TfrmUserInfo, frmUserInfo);
  Application.CreateForm(TfrmPic, frmPic);
  Application.CreateForm(TfrmBJSZ, frmBJSZ);
  Application.CreateForm(TfrmBJDlg, frmBJDlg);
  frmLogin:=TfrmLogin.Create(Application);
  frmLogin.ShowModal;
  Application.Run;
end.

Answer 3

Frm_Main.Visible:=False;
procedure Tfrm_main.FormShow(Sender: TObject);
begin
 try
    frm_login:=Tfrm_login.Create(nil);
    frm_login.ShowModal;
 finally
    frm_login.Free;
 end;
end;

Answer 4

同意jiangong9(shi）的做法。

Answer 5

楼上 hsmserver(小霍) 的方法最正规和简单

Answer 6

登录窗体用showModal,mainfrm还是作为主窗体就行了,屏蔽alt+f4可以用注册热键