延时方法！请指教，有没有更好的方法！(100分)

保龙 · 2004-03-31

procedure TForm1.Button1Click(Sender: TObject); var   i:integer; begin   for i:=0 to 1000 do   begin   sleep(100);             //转让控制权,但按其它按钮时不能向应   form1.Text:=inttostr(i);   end; end; procedure TimeDelay(Dt

ouble); var   TT

ouble; begin   TT:=GetTickCount();    while GetTickCount()-TT<DT do      Application.ProcessMessages; end; procedure TForm1.Button2Click(Sender: TObject); var  TT

ouble;  i:integer; begin   for i:=0 to 1000 do   begin     TimeDelay(100);       //程序延时后按按钮有向应，但CPU资源使用100%     form1.Text:=inttostr(i);   end; end;

nicai_wgl · 2004-03-31

如果对时间精度要求不高，Timer是个不错的选择

刘麻子 · 2004-03-31

>>>CPU资源使用100% 这是肯定的，无论多么好的Cpu，遇到死循环也肯定是100% 如果需要又能响应按键，又能使Button1Click在循环中延时，是否可以使用多线程。。 当单击Button时候创建一个线程，线程体就是   var     i:integer;   begin     for i:=0 to 1000 do     begin       sleep(100);            //转让控制权,但按其它按钮时不能向应       form1.Text:=inttostr(i);     end;   end; 这样就可以了。 如果，需要线程可以中途退出，那可以把for循环修为 while i<=1000 and Run do ... 然后其他终止线程按钮的实践可以置Run:=false;这样在下次循环时候就会退出线程。。

DeityFox · 2004-04-02

procedure TimeDelay(Dt

WORD); var   TT

WORD; begin   TT:=GetTickCount();    while GetTickCount()-TT<DT do    begin      Application.ProcessMessages;     Sleep(1);//这才是关键   end; end;

cnaoszh · 2004-04-02

procedure TForm1.Button2Click(Sender: TObject); var  TT

ouble;  i:integer; begin   for i:=0 to 1000 do   begin     TimeDelay(100);       //程序延时后按按钮有向应，但CPU资源使用100%     form1.Text:=inttostr(i);    Application.postmessage;   end; end;

刘麻子 · 2004-04-02

请创建一个子线程线程体为：   var     i:integer;   begin     for i:=0 to 1000 do     begin       sleep(100);            //转让控制权,但按其它按钮时不能向应       form1.Text:=inttostr(i);     end;   end; 就可以了。。

lich · 2004-04-02

既Sleep，同时也ProcessMessages 就可以了， 否则，没有别的办法

刘麻子 · 2004-04-02

sleep 只是当前线程。。。主线程并不受影响。。

nicai_wgl · 2004-04-02

The SetTimer function creates a timer with the specified time-out value. UINT SetTimer(     HWND hWnd, // handle of window for timer messages     UINT nIDEvent, // timer identifier     UINT uElapse, // time-out value     TIMERPROC lpTimerFunc // address of timer procedure   &nbsp

;   Parameters hWnd Identifies the window to be associated with the timer. This window must be owned by the calling thread. If this parameter is NULL, no window is associated with the timer and the nIDEvent parameter is ignored. nIDEvent Specifies a nonzero timer identifier. If the hWnd parameter is NULL, this parameter is ignored. uElapse Specifies the time-out value, in milliseconds. lpTimerFunc Points to the function to be notified when the time-out value elapses. For more information about the function, see TimerProc. If lpTimerFunc is NULL, the system posts a WM_TIMER message to the application queue. The hwnd member of the message's MSG structure contains the value of the hWnd parameter.   Return Values If the function succeeds, the return value is an integer identifying the new timer. An application can pass this value, or the string identifier, if it exists, to the KillTimer function to destroy the timer. If the function fails to create a timer, the return value is zero. Remarks An application can process WM_TIMER messages by including a WM_TIMER case statement in the window procedure or by specifying a TimerProc callback function when creating the timer. When you specify a TimerProc callback function, the DispatchMessage function simply calls the callback function instead of the window procedure. Therefore, you need to dispatch messages in the calling thread, even when you use TimerProc instead of processing WM_TIMER. The wParam parameter of the WM_TIMER message contains the value of the nIDEvent parameter.

草木心 · 2004-04-06

用多媒体定时器，毫秒级，很精确。

jianguobu · 2004-04-06

用线程吧.

保龙 · 2004-04-07

什么是？"多媒体定时器"怎样用的？

保龙 · 2004-04-09

Sleep()和Application.postmessage一定使用？

jmlwz · 2004-04-17

while GetTickCount()-TT<DT do begin      Application.ProcessMessages;      Sleep(1); end;

保龙 · 2004-04-17

接受答案，并分配积分

延时方法！请指教，有没有更好的方法！(100分)

保龙

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

DeityFox

Unregistered / Unconfirmed

cnaoszh

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

草木心

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

保龙

Unregistered / Unconfirmed

保龙

Unregistered / Unconfirmed

jmlwz

Unregistered / Unconfirmed

保龙

Unregistered / Unconfirmed

Similar threads