delphi - Firemonkey TButton 样式，具有两个不同的文本

Question

我正在尝试创建一个虚拟键盘，其中每个按钮都有一个数字和几个字母。例如，数字 2 旁边还会有文本 ABC(字体较小)，数字 3 旁边会有 3 DEF 就在它旁边。

我可以成功地一一编辑这些按钮的自定义样式。通过一个按钮，我可以放置一个 TText 样式元素，更改每个元素的对齐方式和文本设置，并且效果很好......

但是，我必须一一进行，自定义每个按钮本身的样式。如果我尝试重新使用这种样式，则所有键上的额外字母 ABC 将相同。但我需要它们各不相同。

如何制作一个可重复使用的样式，同时允许我在每个按钮中使用不同的子文本？或者我必须为每个按钮创建独特的样式？

Answer 1

您可以采取解决方法，将 ABC Label 的文本 StyleName 设置为 text，将 Number Label 的 StyleName 设置为 Number。

创建一个覆盖按钮类的类。

TButton = class(FMX.StdCtrls.TButton)
protected
  procedure ApplyStyle; override;
end;

procedure TButton.ApplyStyle;
  var NumberLabel : TLabel;
begin
  //That method will find for a label with stylename number and set the tag of component in it.
  inherited;
  if FindStyleResource<TLabel>('Number', NumberLabel) then
    NumberLabel.Text := IntToStr(Tag);
end;

现在设置所有按钮的样式。文本属性将设置文本字母数字文本，标签将设置数字。它仅在运行时起作用。