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