定时器Timer

2017-05-14 11:44:03来源:CSDN作者:hzken0137人点击

Timer

procedure TForm1.btn1Click(Sender: TObject);begin  tmr1.interval:=1000;  tmr1.Enabled:=True;  mmo1.Lines.Add('AAA');end;procedure TForm1.tmr1Timer(Sender: TObject);var  i:Integer;begin  tmr1.Enabled:=False;  mmo1.Lines.Add('ssss');  tmr1.Enabled:=True;  for i:=1 to 1000 do  begin    Application.ProcessMessages;    Sleep(10);  end;  mmo1.Lines.Add('xxx');end;

mmo1显示
AAA
ssss
ssss
ssss
xxx
xxx
xxx
“xxx”每十秒出现一个,“sss”每秒出现一个

若取消掉Application.ProcessMessages;,则显示为
AAA
ssss
xxx
ssss
xxx
ssss
xxx

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台