如何为 TTabSet 组件的选项卡设置图像索引

【问题标题】：How I can set the imageindex for a tab of an TTabSet component如何为 TTabSet 组件的选项卡设置图像索引
【发布时间】：2011-11-28 01:46:28
【问题描述】：

我正在使用带有多个标签的TTabSet 组件。现在我想为每个选项卡分配一个图像，为此我将Images 属性的值设置为一个图像列表，然后选项卡出现一个图像。问题是如何为 TTabSet 组件的选项卡设置图像索引？

【问题讨论】：

标签： delphi delphi-xe

【解决方案1】：

您必须使用TTabSet.OnGetImageIndex 事件将特定图像索引分配给选项卡。

检查此示例

procedure TForm1.TabSet1GetImageIndex(Sender: TObject; TabIndex: Integer;
  var ImageIndex: Integer);
begin
 Case TabIndex of
  0: ImageIndex:=1;
  1: ImageIndex:=7;
  2  ImageIndex:=0;
  3: ImageIndex:=9;
 end;
end;

【讨论】：

为什么没有提到 xe2 错误？
@DavidHeffernan XE2 Bug 不影响 TTabSet 组件，OP 也使用 Delphi XE。