線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:879
推到 Plurk!
推到 Facebook!

FrederickPau先生:你的指教能解決我的問題,但我執行會有錯誤

答題得分者是:yenhorng
zhczm888
一般會員


發表:17
回覆:6
積分:4
註冊:2002-11-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-11-23 14:56:04 IP:61.142.xxx.xxx 未訂閱
我把登錄視窗不管從Project中移走,還是從Project Option 的自動建立視窗中移到可用視窗里,都在form2:=form2.create(nil)出錯,謝謝你再指教
yenhorng
中階會員


發表:12
回覆:82
積分:94
註冊:2002-06-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-11-23 16:46:28 IP:61.61.xxx.xxx 未訂閱
我的做法如下: ------------------------------------------------------------- program GM; uses Forms, Windows, Messages, SysUtils, Dialogs, Controls, FOR_DEAL in 'FOR_DEAL.PAS' {Form_Deal}, FOR_LOGO in 'FOR_LOGO.pas' {Form_Logo}, FOR_LOGI in 'FOR_LOGI.pas' {Form_Login}, {$R *.res} begin try //建立LOGO畫面 Form_Logo := TForm_Logo.Create(Application); Form_Logo.Show; Application.Initialize; //建立主視窗 Application.CreateForm(TForm_Deal, Form_Deal); //隱藏主視窗 Form_Deal.Hide; //建立登入畫面 Form_Login := TForm_Login.Create(Application); //登入畫面設定ShowModal Form_Login.ShowModal; finally //釋放LOGO畫面。 Form_Logo.Free; //判斷登入是否正確,否則直接關閉程式。 //登入時之確定鈕於“名稱”及“密碼”都正確時才顯現 //BTNOk.Enabled := True; if (Form_Login.ModalResult = mrYes) then begin Form_Deal.Show; Application.Run; end; end; end. ----------------------------------------------------------- 試試看吧!
系統時間:2024-05-15 10:19:26
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!