Tabs e Imagelist

[yusnerqui]

Un pequeño ejemplo:

Código Delphi [-]
Const
   ImageActiv = 5;
procedure TForm1.PageControl1Change(Sender: TObject);
begin
 with PageControl1.Pages[PageControl1.ActivePageIndex] do
 begin
    Tag := ImageIndex;
    ImageIndex := ImageActiv;
 end;
end;
procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  with PageControl1.Pages[PageControl1.ActivePageIndex] do
    if ImageIndex = ImageActiv then
      ImageIndex := Tag
end;

Esto lo prové con un PageControl con 5 Tab, y un imagelist que contiene 6 imágenes, siendo la última la imágen que va a mostrarse cuando se activa el Tab.

Espero te sirva.

Saludos Yusnerqui