拜託各位大大幫幫我:之前有人問過了類似的問題但是我還是看不懂耶?到底密碼對話框要如何處建立啊! 我想要做的對話框型式是:(先顯示密碼登錄框，再顯示主界面，如果輸入的帳號 密碼不正確的話!那你就不能登入到主介面) 拜託各位了 !多謝

引言:拜託各位大大幫幫我:之前有人問過了類似的問題但是我還是看不懂耶?到底密碼對話框要如何處建立啊! 我想要做的對話框型式是:(先顯示密碼登錄框，再顯示主界面，如果輸入的帳號 密碼不正確的話!那你就不能登入到主介面) 拜託各位了 !多謝

如果你已經做好了密碼登錄框，只要在做密碼判斷時加入以下語句： if Pssword.text='pass' then ModalResult:=mrok else ModalResult:=mrcancel; 注：Password為你的密碼框的名字，pass為你的正確密碼。 之後，再在主界面的OnShow事件里加入： with TForm2.Create(Self) do begin try ShowModal; if ModalResult=mrok then Application.Terminate; finally free; end; end; 注：Form2為你的登錄框的名字。 但是千萬不要在登錄框的OnClose事件里加入Application.Terminate,否則將不 會顯示主界面。 我是菜鳥，請多指教！！

你可先試這樣做一個簡單的，之後再應用在自己的程式裡 1. 做一新專案 (Project1, Form1) 2. File->New->Form (Form2) 3. 在 Form2 放入一個 TEdit (Edit1) 4. 在 Form2 放兩個 TButtons , Button1 Caption 確定, Button2 Caption 取消) 5. Button2 的 ModelResult 設定為 mrCancel 6. Button1.OnClick 事件加入

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

7. 回到 Form1, Use Unit2 8. 在 Form1 的 OnShow 事件加入

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

9. Run 可試試 1. 按 取消 -> 退出程式 2. 輸入 pass 按確定 -> 進到主畫面 3. 輸入 任意字 按確定 -> 退出程式

引言: 但是千萬不要在登錄框的OnClose事件里加入Application.Terminate,否則將不 會顯示主界面。

呵呵，終於找到原因了?恭喜。

多謝各位大師的指導 我會試試看 如果還有問題的話 我會再次請指教的! 多謝 多謝

sorry 各位大大 我有一個問題 /如何開啟 Form1 的 OnShow 事件啊 /

我再run 時這一行有錯誤耶 with TForm2Create(Self) do 我都按照你的程序做 為何還有錯啊 ! 拜託了

引言: 我再run 時這一行有錯誤耶 with TForm2Create(Self) do 我都按照你的程序做 為何還有錯啊 ! 拜託了

回到 Form1, Use Unit2 在Unit1 Use區加上unit2試試