如何为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;