全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:954
推到 Plurk!
推到 Facebook!

請問如何在函數中等待用戶操作,然后繼續執行?

尚未結案
daogra
一般會員


發表:2
回覆:1
積分:0
註冊:2003-05-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-06-12 23:19:39 IP:61.171.xxx.xxx 未訂閱
比如要使 button1click 執行得到一個值后繼續下面的語句,好比象 if OpenDilog1.excecuted then ... 的效果。表達不清楚請見諒。 發表人 - daogra 於 2003/06/12 23:33:37
artist1002
高階會員


發表:2
回覆:155
積分:151
註冊:2002-09-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-06-13 00:22:13 IP:211.76.xxx.xxx 未訂閱
簡單的方式可以設定一個旗標來判斷用戶執行了沒 然後使用while迴圈判斷旗標是否設定為用戶執行過了 記得在while迴圈內加上application.processmessages使用戶能執行操作 如:
while (Action==False) do Application.ProcessMessages;
其中Action 是 boolean, 初始化為False 另外在用戶操作完後將Action設置為True 記得將Action設置為全域變數即可... 試試看吧!
daogra
一般會員


發表:2
回覆:1
積分:0
註冊:2003-05-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-06-14 00:44:30 IP:61.171.xxx.xxx 未訂閱
I tried, it works, but the ' While.. Do ' syntax wastes lots of CPU resourse, maybe there's some better way to achieve the goal? 發表人 - daogra 於 2003/06/14 00:50:33
artist1002
高階會員


發表:2
回覆:155
積分:151
註冊:2002-09-26

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-06-19 14:42:10 IP:211.76.xxx.xxx 未訂閱
引言: I tried, it works, but the ' While.. Do ' syntax wastes lots of CPU resourse, maybe there's some better way to achieve the goal? 發表人 - daogra 於 2003/06/14 00:50:33
試試看在等待迴圈中加上Sleep,降低CPU的負荷 像是這樣
while Action=False do begin
 Sleep(1000); //等待時間,單位ms,這裡是等待一秒
 Application.ProcessMessages;
end;
系統時間:2024-05-02 18:37:07
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!