Justmade 大大 你之前 曾有教過我 作一個簡單的密碼對話框 但是其中的一個步驟 我不太懂耶 就是以下被標上**的步驟 : 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 : =mrokelse 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 所謂回到FORM1, USE UNIT2 這裡的UNIT2是在FORM2下啊為什麼還要回FORM1啊 另外 在 Form1 的 OnShow事件加入 procedure TForm1.FormShow(Sender: TObject); 其中 TFORM1.FormShow 如何叫出啊 在form1 你沒有這段程式碼啊 SORRY 我是個初學者 請各位大大幫幫忙 多謝

7. 回到 Form1, Use Unit2 一個 Unit 要使用/呼叫另一個 Unit 就要定要 use 那個 unit。 你在 Form1 的畫面可按 : File->Use Unit 然後選好 Form2 後按 OK    8. 在 Form1 的 OnShow 事件加入 在 Form1 裡按一下沒其他元件的空白地方 在 Object Inspector : a. 確認現正顯示 Form1 的資料 b. 按 Events 頁 c. 在 onShow 一行雙按 空白那裡 會轉到 Code Editor 並顯示

procedure TForm1.FormShow(Sender: TObject);
begin     end;

最後，將這段程式貼在 begin 與 end 之間貼上

  with TForm2.Create(Self) do 
  try 
    if ShowModal <> mrok then 
      Application.Terminate; 
  finally 
    Free; 
  end;

這樣就可以了。

SORRY JUSTMADE 大大 我按照了你的步驟去做已可以成功的RUN了 但 如果在 EDIT 內輸入 pass 他並沒有切換到 FORM1 他還是停留在FORM2 茹過不是輸入 pass 他則是 跳出程式 這樣子因該是還有問題吧 SORRY 麻煩你 在一次的幫幫我 多謝 以下是我的程式碼 分別為 (Unit1,Project1,Unit2): Unit1 : unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.DFM} procedure TForm1.FormShow(Sender: TObject); begin with TForm2.Create(Self) do try if ShowModal <> mrok then Application.Terminate; finally Free; end; end; end. Project1 : program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.Run; end. Unit2 : unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1; {$R *.DFM} procedure TForm2.Button1Click(Sender: TObject); begin if Edit1.text='pass'then ModalResult:=mrok else ModalResult:=mrCancel; end; end.

hi...jasonchen613 把procedure TForm1.FormShow(Sender: TObject) 改寫到procedure TForm1.FormActivate(Sender: TObject) 裡面.. TRY TRY SEE

Project->Options->Forms 將 Form2 從 Auto-create Form 移到 Available Form 。 因為若在 Auto-create Form 裡，程式開始時會幫你自動 create Form2 (a)，而在 Form1.FormShow 又再 create 一個 Form2 (b) 。當輸入 pass 後，(b) 關掉了但 a 還在，所以好像沒關掉似的。不 auto-create 後，便不會這樣了。

多謝 各位大大的幫忙 總算 OK LA 不過我想再問一個問題 問題一 : 怎麼樣把輸入EDIT 內的字 變成 ****啊 (如輸入PASS 他在 EDIT 內的顯示是 ****) 問題二 : 可不可以寫出一個可以更改密碼的程式啊 有就是說一開始輸入的密碼是 PASS 進入主程式後 在主程式中可以變更使用者密碼 變更成新密碼後 下次輸入就必須以新密碼輸入 (這個問題比較沒關西,主要的是第一個問題) 再一次拜託各位大大幫幫忙啦 ! 多謝

問題一:Edit有一各PasswordChar裡面打*就可以了.. 問題二:你可能要設一各Table去紀錄密碼.. TRY TRY SEE 發表人 - chih 於 2003/03/30 12:32:34

真是太謝謝您了 不過我最後想在多加問一個問題 就是 我能不能在一開始的EDIT內 顯示'請輸入密碼'啊 (再還為輸入任何字時 在EDIT內顯示的是****， 試問能不能讓它顯示的是 '請輸入密碼'啊 ？) 拜托各位大大幫幫我了 在此獻上無限的感激啊

'請輸入密碼'..可以用一各Label顯示在畫面上就可以了阿

OK 多謝啦 不過 很抱歉 最後我想在多問一個問題就是 當我在EDIT內輸入完PASS後 能不能直接按 Enter鍵 啊 (也就是說不用按"確定:的BOTTON 直接按ENTER鍵) 拜託拜託 幫我最後一個忙 太感謝您了

你的最後 "一" 個問題真多  設

多謝 各位大大的熱心當忙 小弟對密碼對話框的問題已經 解決了 之前翻了好幾本DELPHI的書我都找不到關於 密碼對話框的資料 沒想到在這裡留了言後 竟然 找出答案了 最令人感動的是 JUSTMADE大大 和 CHIH 大大 不厭其煩的幫忙我 我真的是十分的感動啊 所以在此特別銘謝這兩位大大的熱情幫助 不過由於分數只能給一位 我就給了幫我較多忙的JUSTMADE大大 在此跟CHIH說聲抱歉 真的很感激各位大大的幫助 多謝啦 !