TColorbutton (Delphi XE5 - мобильное приложение) не показывает текстовое свойство

Question

Я использую компонент TGridlayout в форму в мобильном приложении FireMonkey.

Я хотел бы создать во время выполнения кнопки с цветом, текстом и изображением. я использую 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;

Примечание: "panTastiera", используемый в параметре TColorButton.Create, представляет собой tpanel в главной форме

Чтобы добавить изображение вы можете сделать то же самое, создавая Timage динамически. В моем исходном коде я создал массив кнопок, как показано на рисунке