Tips (1541)

Tip Bewertung (3):

Timer1.Interval = n  (Tip for n = 1000  "1 second")

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     FlashWindow(Handle, true);
     FlashWindow(Application.Handle, true);
end;