Кнопка панели задач приложения Flash?

В Delphi 10 Seattle я попытался заставить мигать кнопку панели задач Windows, используя этот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FlashWindow(Application.Handle, True); 
end;

or:

procedure TForm1.Button1Click(Sender: TObject);
var
  Flash: FLASHWINFO;
begin
  FillChar(Flash, SizeOf(Flash), 0);
  Flash.cbSize := SizeOf(Flash);
  Flash.hwnd := Application.Handle;
  Flash.dwFlags := FLASHW_ALL or FLASHW_TIMER;
  Flash.dwTimeout := 1000;
  FlashWindowEx(Flash);
end;

or:

procedure TForm1.Button1Click(Sender: TObject);
var
  Flash: FLASHWINFO;
begin
  FillChar(Flash, SizeOf(Flash), 0);
  Flash.cbSize := SizeOf(Flash);
  Flash.hwnd := Application.Handle;
  Flash.uCount := 5;
  Flash.dwTimeOut := 2000;
  Flash.dwFlags := FLASHW_ALL;
  FlashWindowEx(Flash);  
end;

ОС: Windows 7 x64 SP1

К сожалению, это не работает: кнопка панели задач вообще не мигает.

Как я могу заставить это работать?


delphi taskbar delphi-10-seattle
person user1580348    schedule 24.01.2016    source источник

Ответы (1)


arrow_upward
6
arrow_downward

В вашем файле .dpr вы увидите следующую строку:

Application.MainFormOnTaskBar := True;

Это означает, что окно, связанное с кнопкой панели задач, является окном главной формы. А не объект Application. Итак, в своем коде передайте Application.MainFormHandle в FlashWindow или FlashWindowEx.

person David Heffernan    schedule 24.01.2016
comment
Давид, большое спасибо! Спасибо также за объяснение! Знаете ли вы, существуют ли какие-либо рекомендации по пользовательскому интерфейсу относительно того, насколько быстрым должно быть мерцание? - person user1580348; 24.01.2016
comment
Не уверен насчет скорости мигания. Я бы посмотрел и посмотрел, сможете ли вы найти скорость, которую используют приложения MS. Частота 1s кажется правильной. - person David Heffernan; 24.01.2016