新手请教:怎么让显示延迟一段时间 怎么样使用time控件,让界面上的显示延迟一段时间让一个随机滚动的数字组的显示可以有一定的停顿谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 begin Sleep(200); Application.ProcessMessages;end; 来晚了sleep()参数为毫秒,1000是1秒 可以有相关的实例源码看看不咯?把把sleep放在一个循环里面显示效果不是很好 在ontimer事件里写代码来控制一个随机滚动的数字组的显示,只要设置timer的interval属性就好了,1000等于1秒,试试吧,呵呵 上面的延时是不好地!var BeginTick: DWORD;begin BeginTick:=GetTickCount; while GetTickCount - BeginTick < 1000 do Application.ProcessMessages;end; 数字显示格式如下:[dig1][dig2][dig3][dig4][dig5]按下空白键以后,这5个数字就开始滚动请各位指点指点 begin Sleep(200); Application.ProcessMessages;end;这个是放在哪里? 数字显示格式如下:[dig1][dig2][dig3][dig4][dig5]按下空白键以后,这5个数字就开始滚动请各位指点指点这个东西应该用 timer而用 sleep(200)在这200毫秒内,如果在主线程中程序 就好象死了一样,应为这段时间内他什么都不干, Merry Christmas... 如何用DELPHI写一个可以被VBSCRIPT调用的DLL hook住系统登录输入密码框? 请用服务加HOOK 問一個好基礎的問題,關於繼承的 停靠问题 急急!delphi做实时监控方面的程序采用什么方法??? delphi中有没有可以把字符串以某种格式转成数组的函数?以、那位高手有用过? 关于界面的问题。 Delphi&SQL Server﹗﹗﹗ 求Delphi 通过OPCDAAuto.dll开发OPC中异步读写的方法。 QuickReport 可以不用数据库组件,而用一个循环进行显示吗? 请问如何知道今天的日期是星期几?
Sleep(200);
Application.ProcessMessages;
end;
sleep()
参数为毫秒,1000是1秒
把把sleep放在一个循环里面
显示效果不是很好
只要设置timer的interval属性就好了,1000等于1秒,试试吧,呵呵
var
BeginTick: DWORD;
begin
BeginTick:=GetTickCount;
while GetTickCount - BeginTick < 1000 do
Application.ProcessMessages;
end;
[dig1][dig2][dig3][dig4][dig5]
按下空白键以后,这5个数字就开始滚动
请各位指点指点
Sleep(200);
Application.ProcessMessages;
end;
这个是放在哪里?
[dig1][dig2][dig3][dig4][dig5]
按下空白键以后,这5个数字就开始滚动
请各位指点指点这个东西应该用 timer而用 sleep(200)在这200毫秒内,如果在主线程中程序 就好象死了一样,应为这段时间内他什么都不干,