delphi - SpTBX：选项卡控件：如何所有者绘制选项卡标题

Question

TSpTbxTabControl. 我需要所有者绘制选项卡标题：a）在标题顶部绘制彩色线条（杂色），b）绘制一些彩色 BG（不仅绘制主题 BG）。

我只看到OnDrawBackground将 rect 用于“下部”区域（标题下方），而不是 rect 用于选项卡标题。

在这里画

score 3 · Accepted Answer

需要OnDrawItem用于放置在选项卡控件上的选项卡，TSpTbxTabItem. 如果在运行时添加选项卡，则需要分配所有 (TabCtl.Toolbar.Items[i] as TSpTbxTabItem).OnDrawItem.

with SpTBXTabControl1.Toolbar do
for i:= 0 to Items.Count-1 do
  (Items[i] as TSpTbxTabItem).OnDrawItem:= SpTBXTabItem1DrawItem;

1 回答 1