delphi - 如何更改Delphi 2010任务栏中的应用程序图标

Question

我使用自己的图标(32x32 16 位 EGA)更改应用程序的图标:

Project > Option > Applications > Load Icon

任务栏中的图标在许多边框样式中变化得很好:= bsNone或bsSingle或bsSizeable或bsSizeToolWin或bsToolWindow。但是当我使用 BorderStyle := bsDialog 时图标没有改变。

请不要告诉我使用:

Application.Icon.LoadFromFile(extractfilepath(application.exename) + '\myicon.ico');

因为我只想提交一个 EXE 文件。

PS:我使用 Embarcadero Delphi 2010

Answer 1

该图标是与任务栏按钮关联的窗口的图标。因此，当 Application.MainFormOnTaskbar 设置为 True 时，它​​是主窗体图标。当为 False 时，它​​是应用程序隐藏窗口的图标。因此，要使任务栏上的图标与主窗体不同，您需要将 MainFormOnTaskbar 设置为 False，并将不同的图标分配给 Application.Icon。这似乎是解决该问题的简单方法。

如果我记得VCL只设置一种图标大小。根据我的经验，最好自己正确完成这项工作，并直接发送 WM_SETICON 消息来设置小图标和大图标。

至于你的图标所在的位置，将它们作为资源链接到你的可执行文件。我避免使用图像列表，因为我失去了对原始 .ico 文件的控制，但这可能只是我的挑剔。如果您愿意，请随意使用图像列表。