如何为TTabSet组件的选项卡设置imageindex

Question

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

Answer 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;