Delphi：如何创建可生成任意指定类对象的通用TButton子类

当然可以实现这种通用按钮！你的初始思路已经找对了方向，而且完全不需要为每一种对象类型单独写按钮子类。下面我会给你两种可行的方案，并分析各自的适用场景，帮你做选择：

方案一：非泛型的通用按钮（更适合你的场景） #

这个方案直接基于你的思路扩展，通过给按钮添加一个存储目标类的属性，在点击时动态创建对象。关键是要做好类型校验和逻辑解耦，让它更健壮：

// 先定义所有可创建对象的基类，确保类型安全
type
  TMyBaseObject = class(TObject)
    // 可以在这里定义所有子类共享的方法/属性
  end;

  // 自定义按钮类
  TCustomCreatorButton = class(TButton)
  private
    FTargetClass: TClass;
    FOnObjectCreated: procedure(Sender: TObject; CreatedObj: TMyBaseObject) of object;
    function GetTargetClass: TClass;
    procedure SetTargetClass(Value: TClass);
  protected
    procedure Click; override;
  public
    // 暴露给外部设置要创建的类
    property TargetClass: TClass read GetTargetClass write SetTargetClass;
    // 提供事件，让外部处理创建后的对象（解耦按钮和对象逻辑）
    property OnObjectCreated: procedure(Sender: TObject; CreatedObj: TMyBaseObject) of object read FOnObjectCreated write FOnObjectCreated;
  end;

implementation

{ TCustomCreatorButton }

procedure TCustomCreatorButton.Click;
var
  NewObject: TMyBaseObject;
begin
  inherited; // 保留原生按钮的点击逻辑

  // 校验：目标类存在且是TMyBaseObject的子类，并且有无参构造函数
  if Assigned(FTargetClass) 
     and FTargetClass.InheritsFrom(TMyBaseObject)
     and FTargetClass.HasConstructor then
  begin
    NewObject := TMyBaseObject(FTargetClass.Create);
    try
      // 如果有外部订阅了事件，把对象传递出去处理
      if Assigned(FOnObjectCreated) then
        FOnObjectCreated(Self, NewObject);
    finally
      // 注意：这里是否要释放对象取决于你的业务逻辑
      // 如果外部需要持有对象，就不要在这里Free；否则记得释放避免内存泄漏
      // NewObject.Free;
    end;
  end;
end;

function TCustomCreatorButton.GetTargetClass: TClass;
begin
  Result := FTargetClass;
end;

procedure TCustomCreatorButton.SetTargetClass(Value: TClass);
begin
  // 设置时提前校验类型，避免无效类被赋值
  if Value.InheritsFrom(TMyBaseObject) then
    FTargetClass := Value;
end;

这个方案的优势： #

• 极致灵活：运行时可以随时修改按钮的TargetClass，甚至同一个按钮可以切换创建不同类型的对象
• 维护成本低：只需要一个按钮类，就能处理你所有数十种对象类型
• 解耦性好：通过OnObjectCreated事件把对象的后续处理交给外部，按钮只负责创建，职责单一

使用方式也很简单：

var
  MyButton: TCustomCreatorButton;
begin
  MyButton := TCustomCreatorButton.Create(Self);
  MyButton.Parent := Self;
  MyButton.Caption := '创建TClass1对象';
  MyButton.TargetClass := TClass1; // TClass1必须继承TMyBaseObject
  MyButton.OnObjectCreated := procedure(Sender: TObject; CreatedObj: TMyBaseObject)
    begin
      // 在这里处理创建好的对象，比如：
      TClass1(CreatedObj).Initialize;
      // 或者把对象添加到某个列表中管理
    end;
end;

方案二：泛型按钮（适合固定类型的场景） #

如果你的某些按钮从始至终只会创建某一种固定类型的对象，泛型可以给你更好的编译时类型安全，不需要运行时做类型校验：

type
  TGenericCreatorButton<T: TMyBaseObject, constructor> = class(TButton)
  private
    FOnObjectCreated: procedure(Sender: TObject; CreatedObj: T) of object;
  protected
    procedure Click; override;
  public
    property OnObjectCreated: procedure(Sender: TObject; CreatedObj: T) of object read FOnObjectCreated write FOnObjectCreated;
  end;

implementation

{ TGenericCreatorButton<T> }

procedure TGenericCreatorButton<T>.Click;
var
  NewObject: T;
begin
  inherited;
  NewObject := T.Create;
  try
    if Assigned(FOnObjectCreated) then
      FOnObjectCreated(Self, NewObject);
  finally
    // 按需释放对象
    // NewObject.Free;
  end;
end;

使用时直接指定类型：

var
  MyClass2Button: TGenericCreatorButton<TClass2>;
begin
  MyClass2Button := TGenericCreatorButton<TClass2>.Create(Self);
  MyClass2Button.Parent := Self;
  MyClass2Button.Caption := '创建TClass2对象';
  MyClass2Button.OnObjectCreated := procedure(Sender: TObject; CreatedObj: TClass2)
    begin
      // 这里直接用TClass2类型，不需要强制转换
      CreatedObj.DoSomethingSpecific;
    end;
end;

泛型方案的优缺点： #

• 优点：编译时类型检查，避免类型转换错误，代码更简洁
• 缺点：每个不同的T会生成一个独立的类，无法在运行时动态切换创建类型，灵活性不如第一种方案

总结建议 #

根据你的需求（数十种对象类型，不想写几十个按钮子类），方案一的非泛型通用按钮是更合适的选择。它能以一个类覆盖所有场景，灵活度拉满，而且维护成本极低。泛型方案更适合那些创建类型固定不变的按钮场景，可以作为补充。

最后提醒一下：一定要确保所有要创建的对象类都有公开的无参构造函数（constructor;），否则FTargetClass.Create会抛出异常；另外注意对象的生命周期管理，避免内存泄漏。

内容的提问来源于stack exchange，提问作者costateixeira