如何将 Delphi XE2 皮肤应用到 DLL 中的表单？

Question

使用 Delphi XE2，您可以选择将自定义样式（皮肤）嵌入到 VCL 项目中。
一切正常。现在我将一些表单放入一个单独的 dll 中，并动态显示。
当然那些没有剥皮。我该如何纠正这个问题？

我想我必须以某种方式对 TVisualStyle 进行一些调用，但没有运气。

主机：

procedure TForm1.Button1Click(Sender: TObject); 
var   
  l: THandle;   
  p: procedure (const h: THandle); stdcall; 
begin   
 l:= LoadLibrary('project1.dll');   
 if l > 0 then   
 begin
        @p:= GetProcAddress(l,'ShowIt');
        p(Application.Handle);
        FreeLibrary(l);   
  end; 
end;

dll：

procedure ShowIt(const h: THandle);stdcall;
var
  form: TForm;
  b: TButton;
  han: THandle;
begin
  han:= Application.Handle;
  Application.Handle:= h;
  form :=Tform.Create(Application);
  b:= TButton.Create(form);
  b.Parent:= form;
  b.Caption:= 'ytes';
  b.Left:= 2;
  b.Top:= 2;
  form.ShowModal;
  form.Release;
  Application.Handle:= han;
end;

exports ShowIt ;
begin
end.

非常标准的东西。现在，要使 dll 窗体使用主机的样式主题，到底必须做什么呢？

Answer 1

您有两个不同的 VCL 实例。您已在可执行文件拥有的 StyleServices 实例中设置样式，但你的 DLL 对此一无所知。您可以通过以下任一方法解决此问题：

1. 将样式设置传递给 DLL 中的函数，该函数将这些设置应用于其他 StyleServices 实例。
2. 使用包，这样您就只有一个 VCL 实例。

Answer 2

我在这方面遇到了很多麻烦，这是因为我使用的是 themes 而不是 VCL.THEMES 和 VCL.STYLES。

Delphi 抛出一个 customeStyleException 说“找不到样式”或 EcustomStyleException “此样式不支持功能”