Question

delphi中的timer问题

procedure TForm1.Time1timer(Sender: TObject);
var
s:string;
begin

s:=edit1.Text;
edit1.Text:='欢迎您';
sleep(1);
edit1.Text:=s;
end;
timer的interval
为什么不能循环显示 XX 然后欢迎您？

Answer 1

s:=edit1.Text;
edit1.Text:='欢迎您';
application.processmessages;
sleep(500);
edit1.Text:=s;

这样就行了。。。application.processmessages是立即处理消息的意思，不加的话不会执行edit1.Text:='欢迎您'这段代码

还有，如果interval是1000的话，sleep（500）比较好，因为单位是毫秒，500就是半秒的意思，sleep（1）无意义