陈
陈新龙
Unregistered / Unconfirmed
GUEST, unregistred user!
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
短的用sleep(毫秒)，要不就自己写一个。已答问题里有好几个！
L
lhxu
Unregistered / Unconfirmed
GUEST, unregistred user!
参看已答问题:等待时间的函数或计数器使用
(99-5-12)
(99-5-12)
L
liukeen
Unregistered / Unconfirmed
GUEST, unregistred user!
sleep函数是个阻塞函数，不阻塞的函数(延迟n秒)可以这样实现：
procedure mydelay(n:integer);
var begin
_time,end_time:integer;
begin
begin
_time:=gettickcount;
end_time:=gettickcount;
while ((end_time-begin
_time) div 1000) < n do
begin
Application.ProcessMessages;
end_time:=gettickcount;
end;
end;
以上函数未经过编译测试。
procedure mydelay(n:integer);
var begin
_time,end_time:integer;
begin
begin
_time:=gettickcount;
end_time:=gettickcount;
while ((end_time-begin
_time) div 1000) < n do
begin
Application.ProcessMessages;
end_time:=gettickcount;
end;
end;
以上函数未经过编译测试。
W
www
Unregistered / Unconfirmed
GUEST, unregistred user!
liukeen说得很对，用sleep会使系统失去响应，鼠标变成沙漏状，所以最好用
gettickcount的方法gettickcount是取得自windows开机以来的时钟数
给分吧！！
gettickcount的方法gettickcount是取得自windows开机以来的时钟数
给分吧！！
C
cytown
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵，可以在线程中使用SLEEP就没有问题了
W
www
Unregistered / Unconfirmed
GUEST, unregistred user!
估计就这几种方法了，赶紧把分来分给大家吧。
V
Victor.Sun
Unregistered / Unconfirmed
GUEST, unregistred user!
1.用Sleep函数.
2.用TTime控件.
^^^^^^
不知道你想干什么.
2.用TTime控件.
^^^^^^
不知道你想干什么.
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
sleep可以满足一般要求了，不行就这样：
for i:=0 to 999do
begin
sleep(1);
application.processmessages;
end;
for i:=0 to 999do
begin
sleep(1);
application.processmessages;
end;
L
lwlnic
Unregistered / Unconfirmed
GUEST, unregistred user!
这些都是好办法，我无话可说的拉。
L
liukeen
Unregistered / Unconfirmed
GUEST, unregistred user!
menxin的方法不能解决阻塞问题，
不知道他对他的程序测试了吗？
不知道他对他的程序测试了吗？
陈
陈新龙
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢大家！
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
一有什么阻塞问题？
用gettickcount的特点是可以响应1毫秒以下的消息，如果你的应用不在1毫秒以下，
完全可以用sleep,我想我的那两行程序用不着测试！
用gettickcount的特点是可以响应1毫秒以下的消息，如果你的应用不在1毫秒以下，
完全可以用sleep,我想我的那两行程序用不着测试！
张
张磊
Unregistered / Unconfirmed
GUEST, unregistred user!
sleep, sleepex, timer倥件,gettickcount,都可以一试么.
C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
还不结束？
陈
陈新龙
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。