Mega Code Archive

 

Categories / Delphi / VCL

 

Flash the title bar

Timer1.Interval = n (Tip for n = 1000 "1 second") procedure TForm1.Timer1Timer(Sender: TObject); begin FlashWindow(Handle, true); FlashWindow(Application.Handle, true); end;