delphi - 如何设置 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;