網上找了一個不掛起不占cpu的延時函式,在使用的程序中,發現在回圈時不能關閉視窗,
按理說加了一句: Application.ProcessMessages;不是應該可以回應其它的訊息的嗎?
為啥不能回應關閉視窗的訊息呢?望大神幫忙解答一下,多謝啦
delphi2010
函式部分:
procedure TForm2.delay(msecs:integer); //超級延時
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(msecs);
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
begin
Application.ProcessMessages; //處理事件()
msecs := Tick - GetTickcount;
end;
finally
CloseHandle(Event);
end;
end;
應用部分(這里點擊了按鈕后,回圈不執行完是不能關閉視窗的):
procedure TForm2.Button3Click(Sender: TObject);
var i:Integer;
begin
i:=0;
for I := 0 to 10 do
begin
ShowMessage(IntToStr(i));
Delay(2000);
end;
end;
uj5u.com熱心網友回復：
不推薦你這種寫法，不掛起不占CPU的延時函式，請用定時器。uj5u.com熱心網友回復：
定時器不方便啊,比如我要寫類似腳本的程式
舉個例子(寫個偽碼)
滑鼠移動(x1,y1);
延時(1000);
滑鼠點擊();
延時(500);
...
這樣的,用定時器肯定是不方便的
是不是得用延時函式啊,但是如果用主樓那種,啟動了一個回圈,不能關閉視窗了,肯定是不行的啊,有什么解決的方法沒?
uj5u.com熱心網友回復：
你這個需求，應該使用執行緒。
uj5u.com熱心網友回復：
sleep(1000);uj5u.com熱心網友回復：
恩好的 多謝我試試執行緒
uj5u.com熱心網友回復：
sleep是會掛起程式造成卡死的大哥.
uj5u.com熱心網友回復：
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do加一個全域狀態字teminateit:boolean
while (not teminateit) and (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
在視窗關閉前，把：teminateit:=true;
uj5u.com熱心網友回復：
sleep就是等待。
uj5u.com熱心網友回復：
不要執行緒也可以實作 ，看下面。procedure Delay(i_Msc:integer);
var
Msg:TMsg;
begin
//啟動一個定時器，間隔1000，定時器里sendMessage WM_USER+1000
try
獲取現在的時間GetTickCount
repeat
if GetMessage(Msg, 0, 0,0) then
begin
if Msg.Msg=WM_USER+1000 then
begin
獲取一個時間差
end;
end else
begin
if Msg.Msg=WM_QUIT then
begin
ExitProcess(0);
Exit;
end;
end;
until (定時到)
finally
//關閉定時器
end;
end;
uj5u.com熱心網友回復：
更正下：procedure Delay(i_Msc:integer);
var
Msg:TMsg;
begin
//啟動一個定時器，間隔1000，定時器里sendMessage WM_USER+1000
try
獲取現在的時間GetTickCount
repeat
if GetMessage(Msg, 0, 0,0) then
begin
if Msg.Msg=WM_USER+1000 then
begin
獲取一個時間差
end else
begin
TransMessage(Msg);
DispatchMessage(Msg);
end;
end else
begin
if Msg.Msg=WM_QUIT then
begin
ExitProcess(0);
Exit;
end;
end;
until (定時到)
finally
//關閉定時器
end;
end;
uj5u.com熱心網友回復：
純粹的瞎搞~~~~~~~~~~~~~~~~~~~~~~轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/74567.html
標籤：語言基礎/算法/系統設計
上一篇：求教：win7 系統下WH_JOURNALRECORD不回呼
下一篇：delphi取毫秒時間