Se que esto se puede depurar, pero es hora de almuerzo, y ya no pienso muy bien
Código Delphi
[-]
Const
ImgActiv = 4;
procedure TForm1.TabControl1Change(Sender: TObject);
begin
ImageList1.Move(ImgActiv,TabControl1.TabIndex);
ImageList1.Move(TabControl1.TabIndex+1,ImgActiv);
end;
procedure TForm1.TabControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
ImageList1.Move(TabControl1.TabIndex,ImgActiv);
ImageList1.Move(ImgActiv-1, TabControl1.TabIndex);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageList1.Move(ImgActiv,TabControl1.TabIndex);
ImageList1.Move(TabControl1.TabIndex+1,ImgActiv);
end;
Saludos