我正在将一个大型项目转换为Firemonkey,我们有一些自定义按钮,这些按钮不会显示在表单上。我已经将问题隔离到一个非常简单的项目:
使用下面的代码,在移动和桌面上(使用DelphiXE6中的默认新应用程序),创建tTestButton1工作正常,但tTestButton 2没有显示在表单上。这怎么可能?
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
的样式,而不是基于控件的类名查找样式。