R redleaf_wgm Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-24 #4 请使用<br>使用进度条显示进度,在显示过程中使用<br>Application.ProcessMessage;<br>就会转移用户的注意力,不会觉得慢。
W wr960204 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-24 #9 procedure MySleep(ALong:Int64);<br>var<br> Tmp:Int64;<br>begin<br> Tmp := GetTickCount();<br> while (GetTickCount()-Tmp)<ALong do<br> Application.ProcessMessages;<br>end;
procedure MySleep(ALong:Int64);<br>var<br> Tmp:Int64;<br>begin<br> Tmp := GetTickCount();<br> while (GetTickCount()-Tmp)<ALong do<br> Application.ProcessMessages;<br>end;
S Shenxinaz Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-31 #10 这个属于心理问题,你应该放音乐,让客户知道还有多久才会完,就像排队一样
保 保龙 Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-19 #11 var<br> TTWORD;<br>begin //延迟时间<br> //取得现在的Tick值<br> TT:=GetTickCount();<br> //计算Tick差值是否超过设置值<br> while GetTickCount()-TT<DT do<br> Application.ProcessMessages; //释放控制权
var<br> TTWORD;<br>begin //延迟时间<br> //取得现在的Tick值<br> TT:=GetTickCount();<br> //计算Tick差值是否超过设置值<br> while GetTickCount()-TT<DT do<br> Application.ProcessMessages; //释放控制权