在一個Button上的Click事件中可否再偵測另一個Button的Click事件 |
|
答題得分者是：RaynorPao
|
|
okiss
一般會員   發表：11 回覆：55 積分：13 註冊：2002-11-27 發送簡訊給我 |
請教各位大大..
在一個Form上有兩個Button...Button1及Button2
希望能在Button1 click時,去執行一個無窮迴圈..
直到Button2被click時才停止...
也就是說..在Button1的click事件中要在每次迴圈執行時都去聽一下
Button2是否有被click..
不知我這樣的想法對ㄇ??
現在我是把兩個Button的click事件都寫我要做的事情..
但是...按下Button1後...我在怎麼按Button2..
它的Click事件都不會被觸發...@@
該怎麼做???...
先感謝各位大大的囉...
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 請教各位大大.. 在一個Form上有兩個Button...Button1及Button2 希望能在Button1 click時,去執行一個無窮迴圈.. 直到Button2被click時才停止... 也就是說..在Button1的click事件中要在每次迴圈執行時都去聽一下 Button2是否有被click.. 不知我這樣的想法對ㄇ?? 現在我是把兩個Button的click事件都寫我要做的事情.. 但是...按下Button1後...我在怎麼按Button2.. 它的Click事件都不會被觸發...@@ 該怎麼做???... 先感謝各位大大的囉...okiss 你好: 請參考以下的連結文章
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
okiss
一般會員 發表：11 回覆：55 積分：13 註冊：2002-11-27 發送簡訊給我 |
引言:引言: 請教各位大大.. 在一個Form上有兩個Button...Button1及Button2 希望能在Button1 click時,去執行一個無窮迴圈.. 直到Button2被click時才停止... 也就是說..在Button1的click事件中要在每次迴圈執行時都去聽一下 Button2是否有被click.. 不知我這樣的想法對ㄇ?? 現在我是把兩個Button的click事件都寫我要做的事情.. 但是...按下Button1後...我在怎麼按Button2.. 它的Click事件都不會被觸發...@@ 該怎麼做???... 先感謝各位大大的囉...okiss 你好: 請參考以下的連結文章 |
|
BGman
初階會員 發表：28 回覆：85 積分：42 註冊：2003-01-10 發送簡訊給我 |
你的問題癥結點在於無窮迴圈必須要提供一個可以與外界溝通的地方
所以只要使用 Application->ProcessMessages(); 就可以解決了
試試以下範例
#include "Unit1.h"
// -----------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool bFlag = false;
// ------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
// ------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
bFlag = true;
runinfinite();
}
// ------------------------------------------------------------------
void __fastcall TForm1::runinfinite()
{
int i = 0;
while(bFlag)
{
i ;
Caption = i;
Application->ProcessMessages();
}
}
// ------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
bFlag = false;
}
// ------------------------------------------------------------------
|
發表時間：2003-02-19 14:54:24
IP:140.127.xxx.xxx 未訂閱
系統時間：2024-04-29 12:08:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |