如何使程序暂停一段时间(30分)

zzd · 1999-10-28

我想将一窗体隐藏，但在隐藏之前，我想让它显示一段时间， 也就是在显示该窗体后，使程序暂停一段时间，请问有没有 这样的函数，若没有请教其他的方法。

Jams · 1999-10-28

加一段延迟程序/空循环等。

面条 · 1999-10-28

用sleep(100000)

pxlei · 1999-10-28

加一段延迟程序。 在调用别的

小天 · 1999-10-28

var numsec:smallint;     starttime:TTime; begin   ...   starttime:=now;   numsec:=5;          //5 秒   repeat     application.processmessage;   until now>starttime+numsec*(1/24/60/60);   ... end;

cAkk · 1999-10-28

或者用timer也可以.

cytown · 1999-10-28

小天的程序有问题: 如果在5秒内改了系统时间

sleep最省事了

wrench · 1999-10-28

VOID Sleep (     DWORD dwMilliseconds // sleep time in milliseconds &nbsp

; 这是一个API,参数的单位为千分之一秒

sunstone · 1999-10-28

如果作程序的封皮,可以这样做 Uses AboutBox Var lTime :TDateTime; Begin Application.Initialize(); AboutBox=TAboutBox.Create(AboutBox); AboutBox.Show; AboutBox.Update; lTime=GetTickCount; Application.CreateForm(TMainForm,MainForm); while((GetTickCount-lTime) / 1000 <3) do; //如果mainform创建的时间很短                                       也可延长总计3秒的时间 AboutBox.Hide; AboutBox.Free; Application.Run; end; 用sleep 不能保证总长3秒

suman · 2000-04-04

使用sleep的话，程序这段时间内将会停止响应，用for循环也可以，但是机器速度不同，暂停的时间差别很大的

liuchuanbo · 2000-04-04

timer1.interval:=3000;   i:=1; ontimer; begin  if i:>=3 then    timer1.enabled:=false  else   i:=i+1; end;

唐晓锋 · 2000-04-05

procedure Delay(MilliSeconds: dword); var   Event : THandle; begin   Event := CreateEvent(nil,True,False,nil);   WaitForSingleObect(Event,MilliSeconds);   CloseHandle(Event); end;

wjiachun · 2000-09-09

接受答案了.

如何使程序暂停一段时间(30分)

zzd

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

面条

Unregistered / Unconfirmed

pxlei

Unregistered / Unconfirmed

小天

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

wrench

Unregistered / Unconfirmed

sunstone

Unregistered / Unconfirmed

suman

Unregistered / Unconfirmed

liuchuanbo

Unregistered / Unconfirmed

唐晓锋

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads