delphi - 从TButton继承的自定义按钮不显示

我正在将一个大型项目转换为Firemonkey，我们有一些自定义按钮，这些按钮未显示在表单上。我将问题隔离到一个非常简单的项目中:

使用下面的代码，在移动设备和台式机上(在Delphi XE6中使用默认的新应用程序)，创建tTestButton1都可以，但是tTestButton2不会显示在表单上。那怎么可能呢？

type
tTestButton1 = class(TButton);
tTestButton2 = class(tTestButton1);

tMainForm = class(TForm)
private
  fTestButton: TButton;
public
  constructor Create(aOwner: TComponent); override;
end;

constructor tMainForm .Create(aOwner: TComponent);
begin
  inherited;

//  fTestButton := tTestButton1.Create(Self); // this works fine (used instead of next line)
  fTestButton := tTestButton2.Create(Self);  //this button does not show up
  fTestButton.Text := 'Test';
  fTestButton.Parent := Self;
  fTestButton.Visible := True;
  fTestButton.Position.X := 20;
  fTestButton.Position.Y := 20;
end;

最佳答案

问题是该控件没有为其注册样式。因此，自然的解决方案就是让您做到这一点。

但这是一个合理的工作量，我希望您真正想要做的就是安排控件使用与TButton相同的样式。像这样实现:

type
  TButtonBase = class(TButton)
  protected
    function GetDefaultStyleLookupName: string; override;
  end;

function TButtonBase.GetDefaultStyleLookupName: string;
begin
  Result := 'Buttonstyle';
end;

现在从TButtonBase派生您的类。

type
  tTestButton1 = class(TButtonBase);
  tTestButton2 = class(tTestButton1);

从TButtonBase派生的类将使用名为Buttonstyle的样式，而不是根据控件的类名称查找样式。

关于delphi - 从TButton继承的自定义按钮不显示，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/25864696/