關於密碼驗證窗口的簡單問題

Question

我也是菜鸟，我做的时候是把PASSFORM做为主程序入口，如果通过验证的话
PASSFORM.CLOSE；MAINFORM.SHOWMODAL。如果不通过取消的话，则关闭。

Answer 1

可是如果通過的話,mainform.showmodal,可 passform仍然可見哦.

Answer 2

你可以在dpr 文件(view source)中进行设置

Answer 3

9527说得没错,mainform是主程式,把passwordform的显示放到drp中(通过点右键"view source"可以打开....)

Answer 4

program DicDesign;uses
  Forms,
  Sysutils,
  DicDesignFrm in 'Source\DicDesignFrm.pas' {frmDicDesign},
  ConstUnt in '..\ConstUnt\ConstUnt.pas',
  LoginFrm in '..\Login\LoginFrm.pas' {frmLogin},
  AboutFrm in 'Source\AboutFrm.pas' {frmAbout};{$R *.RES}begin
  Application.Initialize;
  Application.Title := '数据字典设计';
  LoginInf := TLoginInf.Create;
  //LoginInf.WorkPath := ExtractFilePath(Application.ExeName);
  LoginInf.SetWorkPath(ExtractFilePath(Application.ExeName));
  if not LoginInf.SessionConnect then
  begin
    LoginInf.Free;
    Exit;
  end;  frmLogin := TfrmLogin.Create(nil);
  frmLogin.ShowModal;
  frmLogin.Free;
  //  frmLogin := nil;  if not LoginInf.Logined then //标志是否登陆
  begin
    LoginInf.SessionDisConn;
    LoginInf.Free;
    LoginInf := nil;
  end
  else
  begin
    Application.CreateForm(TfrmDicDesign, frmDicDesign);
    Application.Run;
  end;end.

Answer 5

在PassForm的退出按钮中的代码中添加：
Application.Terminate即可。
或者在主程序的
PassForm.ShowModal改成：
if PassForm.ShowModal<>mrOK then
  Application.Terminate。

Answer 6

判断passform.showmodal的值，然后进行条件转向就行了

Answer 7

判断passform.showmodal的值，然后进行条件转向就行了

Answer 8

我先试试此方法。谢谢大家。
另有没有一些在做Delphi中的思想，经典的。
大家共享。

Answer 9

主程序一close就相当于整个程序都terminate了
非主程序close只是关闭其窗体，如果想关闭整个应用程序，可调用
application.terminate一般都用mainForm做主程序

Answer 10

當我在passform的退出按鈕下加入Application.terminate.mainform的show事件下加入passform.ShowModal.可運行時點擊,主程式還是運行.

Answer 11

其實你是混亂了你的思路.Application.terminate 就可以了.再說
很多東東是修飾,只有當程式(工程)做好了才做這些周邊的,不知這樣說
對你有沒有幫助.