如何将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实例.