再次請問Justmade關於MDI |
答題得分者是:Justmade
|
yezi_ji
一般會員 發表:16 回覆:31 積分:9 註冊:2003-03-22 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
我之前寫到的是 MainForm - OnShow :
procedure TfmMain.FormShow(Sender: TObject); begin with TLogin.Create(Self) do begin try if ShowModal <> mrok then Application.Terminate; finally Free; end; end;Login Form 判斷 : if password.text='pass' then ModalResult : =mrok else ModalResult := mrCancel;當使用者輸入了 pass 按確定後,程式會設定 Login Form 的 ModelResult 為 mrOK 並回到 Main Form ,那時 Main Form 判斷 ModelResult = mrOK 所以不執行 Application.Terminate 而繼續將 MainForm Show 出來。 你是否作出了一些改動呢? |
yezi_ji
一般會員 發表:16 回覆:31 積分:9 註冊:2003-03-22 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
我剛試過 :
1. 做一新專案
2. 設定 FormStyle 為 MDI Form
3. 在 OnShow 事件加入上述的碼
4. 做一新 Form 名 Login
5. 加入兩個 BitBtn, kind 一個設 bkOK, 另一個 bkCancel
6. 在第一個 Form use 第二個 Form
7. Run 完全正當,按 OK 則繼續 Show Form ,按 Cancel 則結束 所以應是其他部份的問題,沒看你的程式很難猜出來...
你若暫時不執行 FormShow 的程式區段除不顯示LOGIN FGRM 外能正當運作嗎?
|
yezi_ji
一般會員 發表:16 回覆:31 積分:9 註冊:2003-03-22 發送簡訊給我 |
|
yezi_ji
一般會員 發表:16 回覆:31 積分:9 註冊:2003-03-22 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |