我想在 aTText的“選項卡式”部分插入一個額外TTabItem的內容TTabControl，以便我可以有另一個不同顏色的文本。
似乎無法將控制元件移動到該“選項卡式”部分。
有沒有辦法實作這一目標？
uj5u.com熱心網友回復：
由于需要在 a 上顯示簡單的文本，TTabItem因此可以使用控制元件的onPaint事件輕松實作TTabItem。所以這段代碼：
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;
產生這個：
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/340218.html
下一篇：RecordSet中的日期格式