(Resolvido) Caption do TabSheet com Imagens

[robinhocne]

Tenho um TImageList com algumas imagens e ai quero que quando eu clicar no botao por exemplo Produtos o caption de um determinado TabSheet tipo (TabPro) receber a Imagem que esta no TImageList e ai quando estiver dentro do menu do Produtos(TabPro) e clicar no Botão Manutenções o caption do TabSheet ficaria com a imagem do produtos e depois o nome e ai depois a imagem da manutenção e depois o nome.

Exemplo:

Clicando no botao Produtos:

^_^ Produtos

e depois dentro do produtos clicar no botao Manutenções:

^_^ Produtos :D Manutenções

Como faço para aparecer assim no Caption do TabSheet do PageControl ?

Editado Março 8, 2011 por robinhocne

[Jhonas]

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
   // colocar as imagens dentro dos TabSheets
   PageControl1.Images := ImageList1;

   TabSheet1.ImageIndex := 0; // indice da imagem
   TabSheet2.ImageIndex := 1;
   TabSheet3.ImageIndex := 2;
end;

abraço

[robinhocne]

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
   // colocar as imagens dentro dos TabSheets
   PageControl1.Images := ImageList1;

   TabSheet1.ImageIndex := 0; // indice da imagem
   TabSheet2.ImageIndex := 1;
   TabSheet3.ImageIndex := 2;
end;

abraço

Ok, dessa maneira eu consigo colocar uma imagem, eu queria colocar assim.....

(Imagem) Produtos (Imagem) Manutenções

[Jhonas]

Ok, dessa maneira eu consigo colocar uma imagem, eu queria colocar assim.....

(Imagem) Produtos (Imagem) Manutenções

o componente não tem essa propriedade ... a não ser que voce queira criar o seu proprio componente

abraço

[robinhocne]

Hum....Ok, obrigado, não tenho muita experiencia em criar componentes então por enquanto vou deixar assim mesmo.