Flash应用程序的任务栏按钮？

Question

Flash应用程序的任务栏按钮？

4

在Delphi 10 Seattle中，我尝试使用以下代码使应用程序的Windows任务栏按钮闪烁：

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

或者：

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;

或者：

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

不幸的是，这个功能无法正常工作：任务栏按钮根本没有闪烁。

我该如何让它正常工作？

- user1580348

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- David Heffernan · Accepted Answer

在你的.dpr文件中，你会看到以下行：

Application.MainFormOnTaskBar := True;

这意味着与任务栏按钮相关联的窗口是主窗体的窗口，而不是Application对象的窗口。因此，在您的代码中，将Application.MainFormHandle传递给FlashWindow或FlashWindowEx。