ttimer 控件和 application.processmessages 导致的消息列表溢出。

procedure TForm1.tmr1Timer(Sender: TObject);
begin
windows.Beep(100, 100);
windows.Beep(100, 100);
while true do
begin
Application.ProcessMessages;
end;
end;

这种代码会导致timer会被反复触发。

procedure TForm1.tmr1Timer(Sender: TObject);
begin

tmr1.enabled := false

try
windows.Beep(100, 100);
windows.Beep(100, 100);
while true do
begin
Application.ProcessMessages;
end;

finally

tmr1.enabled := false;

end;
end;

则不会导致wm_timer时间消息的频繁发生。

下面的代码，也不会反复触发。因为系统太忙了。这种方式不会导致消息列表溢出。

procedure TForm1.tmr1Timer(Sender: TObject);
var
i: Integer;
begin
windows.Beep(100, 100);
windows.Beep(100, 100);
i := 0;
while true do
begin
Sleep(100);
Inc(i);
btn1.Caption := IntToStr(i);
end;
end;