如何使用从Delphi DLL加载的窗体的应用程序图标

Question

我有多个用Delphi创建的Windows主机应用程序和一个DLL。 DLL包含一些按需显示的（模式）对话框形式。 我已经将Forms.Application.Handle从当前运行的主机应用程序传递给DLL，以获得正确的Windows所有权。 不幸的是，从DLL创建的对话框仍然显示通用图标，而不是像直接在主机应用程序中创建的对话框那样使用主应用程序图标。

如何从DLL中打开基于tForm的对话框，以使用主机可执行文件中的当前应用程序图标而不是通用Windows图标？

Answer 1

显然，可以通过将Forms.Application.Icon.Handle句柄值传递给库并将其分配给该库中的tApplication实例，来将宿主应用程序图标处理到DLL。

虚拟库代码：

procedure MyLib_SetAppIcon( Icon : hIcon ); stdcall;
begin
   if (Icon > 0) then
      Forms.Application.Icon.Handle := Icon;
end;

虚拟主机代码：

procedure MyLib_SetAppIcon( Icon : hIcon ); stdcall; external 'MyLib.dll';

// ...
MyLib_SetAppIcon(Forms.Application.Icon.Handle);
// ...