如何在 Firemonkey 的 TTabItem 中插入另一个控件

Question

我想在 TTabControl 的“制表符”部分 TTabItem 中插入一个额外的 TText，这样我就可以有另一个不同颜色的文本。

似乎无法将控件移动到那个“选项卡式”部分。

有办法实现吗？

Answer 1

由于需要在 TTabItem 上显示简单的文本，因此可以使用 TTabItem 控件的 onPaint 事件轻松实现。所以这段代码：

procedure TForm1.TabItem1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
var
  R: TRectF;
begin
  // Use only 1/3 top part of the canvas
  R:=RectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom / 3);
  // Set font color and size
  Canvas.Fill.Color := TAlphaColors.Seagreen;
  Canvas.Font.Size := 12;
  // Draw text
  Canvas.FillText(R, 'New!', False, 1, [], TTextAlign.Center, TTextAlign.Center);
end;

产生这个：

如何在 Firemonkey 的 TTabItem 中插入另一个控件

How to insert another control into TTabItem in Firemonkey

delphi

tabcontrol

tabitem

firemonkey