定时器Timer

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