windows – 除了ICON_BIG之外,如何让Delphi 10.2 Tokyo尊重ICON_

如何在Delphi 10.2中实现以下目标：我需要Delphi自动设置大图标,而不是每个窗口的大小图标.我需要有机会,对于某些表单,以及TApplication,在运行时更改图标.我希望在不修改VCL.Forms.pas的情况下完成此操作(小图标是在窗口标题栏中显示的图标,从窗口标题向左).

TCustomForm中有一个函数：

function GetIconHandle: HICON;

不幸的是,Delphi只设置了大图标句柄,例如,这里引用了VCL.Forms.pas：

SendMessage(Handle,WM_SETICON,ICON_BIG,GetIconHandle);

如您所见,上面的代码只设置了大图标句柄,但我还需要设置小图标句柄,因为我使用的.ICO文件包含大小图标的不同图像.

让我总结一下大图标和小图标之间的区别,因为即使是微软的文档也几乎没有说明它.以下是主要区别：

>窗口标题栏上显示小图标图像.
>如果任务栏很粗,则在Windows任务栏中显示大图标图像(通常位于屏幕的底部);按Alt Tab时也会显示大图标图像.

有关大图标和小图标的更多信息,请参见https://blog.barthe.ph/2009/07/17/wmseticon/.

Delphi通过仅设置大窗口句柄,有效地逐步取出替代图像,以获得窗口标题上显示的较小图标.如果只给出大图标而不是小图标,则Windows会将图像从较大的图标重新采样到较小的图标,质量会恶化,并且会丢失更小,更简单图像的主要概念.

请参阅示例图片courtesy sanyok.标有v7.4.16的左栏是使用设置ICON_BIG和ICON_SMALL的代码编译的程序的屏幕截图.标题为v7.4.16.22的右栏是来自同一程序的屏幕截图,它没有明确设置小图标和大图标,只是将TIcon分配给表单,然后Delphi使用其标准代码只分配大图标,因此窗口标题栏中的图像由Windows从大图标调整大小.您可能会看到标准Delphi行为导致质量变差.

在过去,我正在将VCL.Forms.pas的接口部分中的GetIconHandle从静态更改为虚拟,将其从函数更改为过程并添加两个参数：

procedure GetIconHandle(var Big,Small: HICON); virtual;

所以VCL.Forms.pas中的后续代码如下所示：

var
  Big,Small: HICON;
begin    
  [...]
  GetIconHandle(Big,Small);
  SendMessage(Handle,LParam(Big));
  SendMessage(Handle,ICON_SMALL,LParam(Small));
  [...]

是否可以在不修改VCL.Forms.pas的情况下轻松完成此操作？

我通过修改VCL单元解决了Delphi 2007中的问题,但由于以下原因,我无法再在Delphi 10.20 Tokyo中修改VCL单元：

> VCL单元编译,但是,当我编译我的应用程序时,我得到“内部错误：AV0047C6C7-R000004CC-0”,无论目标目标(Win32 / Win64;调试/发布),请参阅https://quality.embarcadero.com/browse/RSP-18455 – 第一部分错误号(地址)不同,但第二个 – R000004CC-0 – 始终相同.
>我必须手动添加(TObject)到不从任何类继承的每个类;否则我产生一个错误,即在基类中找不到Create或Destroy.在Delphi的早期版本中,简单地编写没有任何祖先的类从TObject隐式继承它,但是当我使用dcc32使用dcc32 -Q -M – $D- – $M命令行选项从命令行编译代码时,会发生此错误在基类中找不到Create或Destroy.

这是我过去加载图标的方式：

procedure LoadIconPair(var Big,Small: hIcon; AName: PChar);
begin
  if Win32MajorVersion < 4 then
  begin
    Big := LoadIcon(hInstance,AName);
    Small := 0;
  end
  else
  begin
    Big := LoadImage(hInstance,AName,IMAGE_ICON,32,LR_DEFAULTCOLOR);
    Small := LoadImage(hInstance,16,LR_DEFAULTCOLOR);
  end;
end;

此代码可以进一步改进：32×32和16×16的硬编码大小可以更改,如https://blog.barthe.ph/2009/07/17/wmseticon/所示,
用于大图标的GetSystemMetrics(SM_CXICON),GetSystemMetrics(SM_CYICON)和用于小图标的GetSystemMetrics(SM_CXSMICON)和GetSystemMetrics(SM_CYSMICON).

因此,每个表单基本上都称为LoadIconPair,然后通过覆盖的过程GetIconHandle(var Big,Small：HICON)返回句柄;覆盖;.

所以问题如下：

>是否有可能让Delphi设置小图标和大图标而不会有太多麻烦并且无需修改VCL.Forms.pas？ (这是主要问题) – 我需要有机会,在运行时更改图标.
>如果没有,如何将修改后的源VCL单元添加到Delphi 10.2 Tokyo下的应用程序中,其中单元的接口部分被修改？有没有说明或官方指南？如果有人设法做到这一点,你是如何做到的？你是否从GUI IDE编译它们？或者使用命令行dcc32 / dcc64？还是使用msbuild？或者其他？您是否还必须手动添加(TObject)到不从任何类继承的类,以避免在基类错误中找不到Create或Destroy？

更新#1：在VCL.Forms.pas设置之后再次设置图标不是一个完整的解决方案：我们还必须关注应用程序图标,而不仅仅是表单图标;除此之外,VCL.Forms.pas无论如何设置图标,但只有ICON_BIG,我们必须再次设置图标,这次设置既小又大.您是否知道我们如何修补VCL.Forms.pas以在设置大图标时添加设置ICON_SMALL,因此我们只修补实现部分,并调用一些消息,甚至WM_USER N来请求图标句柄从表单,我们的TForm后代将实现这个消息处理程序？

更新#2：TApplication和TForm在图标方面有类似的接口,但TApplication是TComponent的后代,它没有窗口句柄,并且分别没有消息处理程序.我们可以用TForm做什么,我们不能用TApplication做.

更新#3：我已经实现了一个解决方案,它是kobik suggested in his post和Sertac Akyuz suggested in his later post的混合解决方案.还要感谢在评论中做出贡献的其他人.我已编译程序并将其交给beta测试人员,他们已经确认问题已得到解决,图标现在看起来很好,也可以通过计时器更改图标来实现TApplication中图标的动画也正常工作.谢谢你们！

解决方法

我建议在应用程序中为所有表单创建一个祖先基类(我认为任何大型项目应该这样做)并覆盖CreateWnd：

（编辑：PHP编程网 - 黄冈站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!