把Sleep();换成 procedure Mysleep(p:LongInt); var btime:longint; begin btime:=gettickcount; while not (gettickcount-btime>p) do begin Application.ProcessMessages; end; end;Mysleep(3000); 窗体就不会不响应消息了
我先试试大家的方法。To: ihihonline(小小) 你再帮我找找,谢谢!
To wolftear(望月狼) 试了试用 form1.doublebuffered:=True; 没什么差别,还是很闪。(我用的是Label控件显示字体),有没有其他的方法?
你的这个方法好像不能解决呀
procedure Mysleep(p:LongInt);
var
btime:longint;
begin
btime:=gettickcount;
while not (gettickcount-btime>p) do
begin
Application.ProcessMessages;
end;
end;Mysleep(3000);
窗体就不会不响应消息了
试了试用 form1.doublebuffered:=True; 没什么差别,还是很闪。(我用的是Label控件显示字体),有没有其他的方法?
具体怎么做呢? 你能告诉我吗? 贴个实例出来好吗?