一个用户登陆认证问题代码就是在打开主窗口前显示一个认证框可

Question

begin
  Application.Initialize;
  Application.CreateForm(TdmRsda, dmRsda);
  Application.CreateForm(TfrmMain, frmMain);
  try  //
    frmLogin := TfrmLogin.Create(Application);
    frmLogin.ShowModal;
    If frmLogin.ModalResult=mrOK the
       Application.Run
    else
    begin
       frmLogin.Free;
       frmMain.Free;
    end;
  Except frmLogin.Free;
end;

Answer 1

这样：
    If frmLogin.ShowModal=mrOK theN //为什么总提示mrOK没有声明?

Answer 2

mrOK是在Controls声明的，所以你要加上这个单元，在你的工程里加入

Answer 3

wo yong le ttimer ye ke yi !

Answer 4

在login窗体中，if 密码正确
then frmmain.Logined:=True;
     frmmain.WindowState:=wsMaximized;
     close;
就可以了，