Form 表單間參數的傳遞, Form1 呼叫 Form2 根據不同的傳回值作處理 |
|
答題得分者是：tech_state
|
|
uj
一般會員   發表：14 回覆：25 積分：7 註冊：2003-03-06 發送簡訊給我 |
Form1 呼叫 Form2 後,
Form1 依據 Form2 處理結果 (傳回值), 做不同的處理 我若是少了 while 迴圈, 則 Button1Click 事件會全部執行完才 show Form2
但放個 while 迴圈, 就覺得不是很聰明的做法 有參考到這篇文章中->http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29861
" 至於RUNTF這個Function應該是用來判別某個Form是否已經開啟，
這個方式在MDIForm中很常用到，
是為了避免同一個Form被重覆開啟 "
好像何握的需要,卻不知跟怎用 放上我的 code , 有較好的方法請告訴我
多謝 int iCount=0;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
iCount=0;
Form2->Show();
while (iCount == 0){
Application->ProcessMessages();
} switch(iCount){
case 1 :
Label1->Caption = "A";
break;
case 2 :
Label1->Caption = "B";
break;
default : ;
}
} extern int iCount;
void __fastcall TForm2::Button1Click(TObject *Sender)
{
iCount = 1;
Close();
} void __fastcall TForm2::Button2Click(TObject *Sender)
{
iCount = 2;
Close();
}
|
|
tech_state
版主  發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
引言: Form1 呼叫 Form2 後, Form1 依據 Form2 處理結果 (傳回值), 做不同的處理 我若是少了 while 迴圈, 則 Button1Click 事件會全部執行完才 show Form2 但放個 while 迴圈, 就覺得不是很聰明的做法 有參考到這篇文章中->http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29861 " 至於RUNTF這個Function應該是用來判別某個Form是否已經開啟， 這個方式在MDIForm中很常用到， 是為了避免同一個Form被重覆開啟 " 好像何握的需要,卻不知跟怎用 放上我的 code , 有較好的方法請告訴我 多謝 int iCount=0; void __fastcall TForm1::Button1Click(TObject *Sender) { iCount=0; Form2->Show(); while (iCount == 0){ Application->ProcessMessages(); } switch(iCount){ case 1 : Label1->Caption = "A"; break; case 2 : Label1->Caption = "B"; break; default : ; } } extern int iCount; void __fastcall TForm2::Button1Click(TObject *Sender) { iCount = 1; Close(); } void __fastcall TForm2::Button2Click(TObject *Sender) { iCount = 2; Close(); }uj, 您好 不知道我有沒有誤會您的意思， 請將 Form2->Show();改為 Form2->ShowModal();如此可以等到Form2動作結束後， 再繼續下面的動作， 這樣就不必while的迴圈了。 另外，如果一定要Form2有動作之後才可以Close的話， 可以在Form2的OnClose中加入下面的判斷式：
if(iCount == 0)
Abort();
=======================
是非終日有，不聽自然無
天下本無事，庸人自擾之 發表人 - tech_state 於 2003/05/06 13:38:19
|
|
uj
一般會員 發表：14 回覆：25 積分：7 註冊：2003-03-06 發送簡訊給我 |
發表時間：2003-05-06 13:10:29
IP:210.201.xxx.xxx 未訂閱
系統時間：2024-05-08 3:22:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |