Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как создать мигающий заголовок окна (пиктограмму)?

Как создать мигающий заголовок окна (пиктограмму)?

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

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru