在DELPHI中有没有办法让程序等待几秒的方法，象VB中的WAIT一样？(50分)

中

中原浪子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #1

在DELPHI中有没有办法让程序等待几秒的方法，象VB中的WAIT一样？

 

D

dongberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #2

sleep(3000);/3秒；

 

小

小令

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #3

sleep

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #4

来晚了
sleep;
//n:integer;
代表n*1/1000秒

 

C

ChinaYA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #5

to:楼上的兄弟
procedure Sleep(dwMilliseconds: DWORD); stdcall;
这是定义。你的"sleep;
//n:integer;
代表n*1/1000秒"
中的n 应为:Longword;

 

H

Headchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #6

用sleep太武断，正个程序全部停止了，建议用
procedure wait(MillisecondsWORD);
var tempWORD;
begin
temp:=GetTicketCount;
while not GetTicketCount-temp<Milliseconds do
Application.ProcessMessages;
end;

 

Z

zh_2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #7

建议用headchen的

 

R

robertcool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #8

Headchen 的方法比较好

 

P

peng_qs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #9

建议用Headchen的方法或者CreateEvent加WaitForSingleObject方法.

 

X

xygz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #10

GetTickerCount应为GetTickCount

 

笨

笨笨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #11

procedure wait(MillisecondsWORD);
var tempWORD;
begin
temp:=GetTickCount;
while GetTickCount-temp<Milliseconds do
Application.ProcessMessages;
end;
这样才行