Используйте FlashWindow().
|
|
var Flash :
bool;
procedure TForm1.Timer1Timer(Sender:
TObject); begin FlashWindow(Form1.Handle,
Flash); FlashWindow(Application.Handle, Flash); Flash := not
Flash; end;
procedure TForm1.FormCreate(Sender:
TObject); begin Flash := False; end; | |