請問如何在FormCreate結束後再執行程式 |
尚未結案
|
aredfish
一般會員 發表:47 回覆:41 積分:17 註冊:2002-12-04 發送簡訊給我 |
|
Ming Lin
一般會員 發表:27 回覆:53 積分:21 註冊:2003-04-15 發送簡訊給我 |
|
kwu
中階會員 發表:10 回覆:57 積分:58 註冊:2003-10-31 發送簡訊給我 |
|
CuteBabyBoy
初階會員 發表:18 回覆:97 積分:48 註冊:2003-07-11 發送簡訊給我 |
Dear kwu 據我所知道的,FormShow 這個 Event 是在秀之前所跑的程式碼。您可以試試看以下的範例
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { ShowMessage("ok"); } //---------------------------------------------------------------------------您將會發現它的步驟是 1. 秀出 ok 2. 秀出 Form 而我有個方式可以準確在 From 出現畫面時再去執行某段程式。至於此方式是不是正解,本人不清楚,這是我 Try 出來的,可以參考看看,如果有問題也歡迎大家來討論,方式如下 __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Show(); ShowMessage("ok"); } //---------------------------------------------------------------------------Baby |
kwu
中階會員 發表:10 回覆:57 積分:58 註冊:2003-10-31 發送簡訊給我 |
引言: Dear kwu 據我所知道的,FormShow 這個 Event 是在秀之前所跑的程式碼。您可以試試看以下的範例CuteBabyBoy 你好: FormCreate 為 Form 要建立時的事件 FormShow 為 Form 秀出時的事件 FormActivate 為 Form 得到焦點的事件 可以用下面的方法試試看,若有不對之處請各位大大多多指教__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { ShowMessage("ok"); } //---------------------------------------------------------------------------您將會發現它的步驟是 1. 秀出 ok 2. 秀出 Form 而我有個方式可以準確在 From 出現畫面時再去執行某段程式。至於此方式是不是正解,本人不清楚,這是我 Try 出來的,可以參考看看,如果有問題也歡迎大家來討論,方式如下__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Show(); ShowMessage("ok"); } //---------------------------------------------------------------------------Baby void __fastcall TForm1::FormCreate(TObject *Sender) { ShowMessage("1"); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { ShowMessage("2"); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormActivate(TObject *Sender) { ShowMessage("3"); } //--------------------------------------------------------------------------- |
EC
一般會員 發表:0 回覆:3 積分:0 註冊:2003-12-04 發送簡訊給我 |
如果你的form是程式啟動時自動產生的 那就將動作寫在project source
例如:
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TForm1), &Form1); //............................... 在這裡補上你要的動作 //............................... Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } |
CuteBabyBoy
初階會員 發表:18 回覆:97 積分:48 註冊:2003-07-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |