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

Question

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

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;