DELPHI和VB的程序延时问题？

Question

请问在VB中有个Doevents函数用来把操作权还给系统
在DELPHI中有没有类似的函数呢。另外，在DELPHI中如何使程序暂停2秒钟再继续执行？

Answer 1

这个问题有多贴啦！！
procedure  delay(t:dword);
var 
   t1:dword;
begin
    t1:=gettickcount;
    while (gettickcount-t1)<t do
     application.processmessage;
end;
sleep与上面过程delay相比，本人更喜欢用后者！

Answer 2

使用 sleep暂停的时候，应用程序接受不到系统发来的消息。
应该这样：procedure Delay(ms:dword);
var start:dword;
begin
    start:=gettickcount;
    while(gettickcount-start<ms) do
        Application.ProcessMessages ;
end;用法：delay(暂停的毫秒)这段时间程序并不会“死去”