Создать мигающий заголовок окна

[Lomanu4]

Можно воспользоваться функцией API 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;

 

[Mazahaka_lab]

Работает если интервал таймера изменить с 1000 на 100 . Спасибо за пример