android - TColorbutton(Delphi XE5 - 移动应用程序)不显示文本属性

Question

我在 FireMonkey 移动应用程序的表单中使用组件 TGridlayout。

我想在运行时创建带有颜色、文本和图像的按钮。我正在使用 TColorbutton 和 Timage 组件，但是 TColorbutton 只显示图片和颜色。在 Text 属性中输入的文本不会出现。

如何动态创建按钮(带有颜色、图像和文本)？

Answer 1

您必须在按钮内动态创建一个 Tlabel。示例在这里:

var btn:TColorButton;
var testo:TLabel;

       btn:=TColorButton.Create(panTastiera);
       btn.Width:=200;
       btn.Height:=65;
       btn.Parent:=Form1;
       btn.Position.X:=10;
       btn.Position.Y:=10;

       testo:=TLabel.Create(btn);
       testo.Text:='Button 1';
       testo.OnClick:=btn.OnClick;
       testo.Parent:=btn;
       testo.FontColor:=$ffffff;
       testo.TextAlign:=TTextAlign.Center;
       testo.AutoSize:=true;
       testo.Align:=TAlignLayout.Client;

注意:TColorButton.Create参数中使用的“panTastiera”，是主窗体上的一个tpanel

要添加图像，您可以执行相同的操作，动态创建 Timage。在我的原始代码中，我创建了一组按钮，如图所示