如何在运行时创建相当于设计时的组件

Question

我想在运行时创建一个TscStyledForm组件，而不是在设计时将其放在窗体上。 （来自www.almdev.com的该组件修复了一些VCL样式问题）

如果我在Form构造函数中创建（如下所示），则其行为与设计时组件的行为略有不同（Titlebar字体不正确）：

  TForm2 = class(TForm)
  private
    { Private declarations }
    FStyledForm: TscStyledForm;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  end;
...

{ TForm2 }

constructor TForm2.Create(AOwner: TComponent);
begin
  inherited;
  FStyledForm := TscStyledForm.Create(Self);
end;

如果我在CreateWnd中创建组件，那也不能解决问题。

是否可以在运行时精确地模拟设计时组件的创建？

Answer 1

如果在您的Delphi中安装GExperts，则可以直观地创建组件，然后右键单击它并选择“要编码的组件”。这样将生成与可视化组件的当前设置等效的Pascal源代码。