delphi - 通过扩展类来设计组件样式

Question

从这个问题Passing object in reference / one place to style objects

我只是在想，如果我为我正在设计样式的项目创建一个后代类会怎么样。

例如(请原谅糟糕的代码，不是在 ide 中，但你应该明白我的意思)

TStyledButton = class(TButton)
  public 
     constructor Create; //This overrides the main TButton
end;

constructor TStyledButton.Create;
begin
   inherited;
   self.Color := clRed;
end;

然后在我的表单中，我只将 Button1 作为 TStyledButton。

这将删除 create 表单中处理设置样式/调用函数以设置样式的所有额外代码。

唯一的问题是，这将如何出现在设计 View 中，我是否必须注册此对象(组件？)以便它在设计 View 中像往常一样实际显示。

Answer 1

当您了解 Delphi packages 时组件编写器，您可以使用 IDE 专家创建新组件，在创建新的设计时包时自动将其添加到组件面板:

首先使用组件/新组件中的 IDE 专家创建它:

出现提示时，选择安装到新包

提供包(文件)名称和描述

瞧!您的调色板中有了您的新组件:

试试这段代码:

  TMyButton = class(TButton)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation
uses Graphics;

{ TMyButton }

constructor TMyButton.Create(AOwner: TComponent);
begin
  inherited;
  Font.Style := [fsBold];
  Caption := 'Click me!';
end;

你会得到这个: