Question

delphi7 如何暂停命令

当我在EDIT控件里输入一个字符串的时候，如果这个字符串小于10的时候LABEL显示长度不对，暂停两秒LABEL恢复显示请输入。应该怎样编写

Answer 1

sleep不好。如果你活用GetTickCount()这个函数的话，估计会更好一些。给你个函数：procedure TimeDelay(int DelayTime);var start_time: integer;begin start_time := GetTickCount(); do Application.ProcessMessage;//通知主程序可以处理其他消息。 while ((GetTickCount - start_time) < DelayTime);end;

Answer 2

用命令就行了sleep(2000)试试~