各位大哥及前輩，小弟有一問題請教：我做了一個MDI主界面，又作了一個密碼登錄框，現在我要先顯示密碼登錄框，再顯示主界面，但是在顯示密碼登錄框時，主界面不能出現？感激不盡，謝謝！

在主介面 FormShow 事件將密碼登錄框 ShowModel , 若登錄成功不做甚麼，否則就 Application.Terminate 就可以在 主介面顯示之前要求使用者登錄，成功就如常顯示主介面，失敗則退出程式。

非常感謝，但是小弟在主界面的onshow事件中添加登錄框的showmodal時，運行後，報地址讀取錯誤錯誤，請前輩再次解決,感激不盡。

那你應還沒  create 那個 登錄框 罷。

with TPasswordDialog.create(self) do
try
  showmodel;
  //決定是否成功登入等等
finally
  free; // 釋放 PasswordDialog
end;

要將 PasswordDialog 換成你的登錄框名字。

但是爲什麽按了登錄框確定按鈕之後，同樣會報錯。感激不盡。

可能因為你用了 PasswordDialog.xxxx 。 我這個方法是用 with ... do, 並沒有建立 PasswordDialog 變數，所以只要你刪了 所有 PasswordDialog. 字眼就可以了。若還有問題請 post code 上來容易一點說因為都不知你的 Form 及元件叫甚麼名字....

procedure TfmMain.FormShow(Sender: TObject); begin with TLogin.Create(Self) do begin try ShowModal; if ModalResult<>mrok then Application.Terminate; finally Free; end; end; end; 還是一樣的問題。我在Login(登錄框的名字)里做了這樣的語句： if password.text='pass' then ModalResult:=mrok; 這在做返回值到主窗口的Onshow事件里確定主程序是不是繼續運行。

procedure TfmMain.FormShow(Sender: TObject);
begin
 with TLogin.Create(Self) do
 begin
 try
   if ShowModal <> mrok then
    Application.Terminate;
 finally
    Free;
 end;
end;

我剛測試過沒問題，若密碼輸入不正碼那 ModelResult 會是甚樣呢? 還有，報錯是甚麼錯呢?

以下是錯誤提示： Project manager.exe raised exception class EAccessViolation with message 'Access violation at address 0045CECE in module 'manager.exe'. Read of address 000002F4'. Process stopped. Use Step or Run to continue. 我沒有做登錄錯誤的返回值，即：密碼錯誤，關閉或取消的返回值。我是直接用Application.Terminate來結束程序的。

你試試在 TLogin 設定 若密碼不正確就設定 ModalResult 為 mrCancel 罷 如

if password.text='pass' then
  ModalResult:=mrok
else
  ModalResult := mrCancel;

這樣會由 fmMain 來處理繼續還是關閉

好的，非常感謝你。

感謝這位解題的大大,遍尋一天的問題終於找到答案(access violation)