怎么让程序暂停。

Question

就是当程序中要等待一个发生得比较慢的事件(如网页的载入)。要让程序“原地踏步”。要怎么做呢。
我记得是有一个函数的....可是一时想不记来。

Answer 1

对，是sleep函数，不过最好能同时还能处理别的消息，
加上
Application.processmessage;

Answer 2

就是要让程序休眠的话就用sleep函数

Answer 3

TIMER 控件也可以实现，比如每隔一个固定时间段再运行

Answer 4

用API里面的函数,sleep( parameter)时间延时,parameter为毫秒比如让parameter:=1000;

Answer 5

我想补充一点:
    为了让你更确定的知道网页载入的时间,可以用ontimer事件来测试你所花的时间来确定
parameter的时间为多少.
procedure ontimer;
var
   TestTimer:integer;
   i:integer;
begin
   TestTimer:=timer1.intervel*i;
   i:=i+1;
   label1.caption:=inttostr(TestTimer);
end;