Tabs e Imagelist

[piccolo2101]

Hola,

necesitaría saber como puedo seleccionar una imagen de un Imagelist para poner en un tabcontrol y como cambiarlo.
La cuestion es que he puesto un imagelist en el tabcontrol pero cada tab muestra la primera imagen y no sé como hacer para cambiar la imagen de cada tab ya que no veo o no sé como acceder a la propiedad imageindex de cada tab.

Un saludo y gracias.

[Neftali [Germán.Estévez]]

Pues no se como te lo has hecho, o no lo he entendido.

(1) Crea el TabControl.
(2) Añade 5 Tabs.
(3) Crea un ImageList.
(4) Añade 5 Imagenes.
(5) En la propiedad Images del tabControl asigna el TImagelist.

==> Cada pestaña tiene la imagen correspondiente.

¿Me he perdido algo?

[lucasarts_18]

Empezado por piccolo2101

no sé como hacer para cambiar la imagen de cada tab ya que no veo o no sé como acceder a la propiedad imageindex de cada tab.

No es necesario, de hecho no existe tal propiedad en el tabcontrol, como dice Neftalí, cada imagen que tiene el imagelist se asocia a cada tab del tabcontrol.

Por ejemplo, el orden que tengas de imagen en el ImageList es el mismo orden en el cual aparecen en el TabControl.


Hasta Luego -

[piccolo2101]

Si, he visto que para cada tab aparece la imagen en el index correspondiente pero no hay forma de que aparezca la misma para todos y que el tab activo tenga otra?

[yusnerqui]

Mira la propiedad Imageindex de cada Tab, la puedes cmbiar en tiempo de ejecución a tu gusto y tendrás la imagen deseada.


Saludos

[lucasarts_18]

Empezado por yusnerqui

Mira la propiedad Imageindex de cada Tab, la puedes cmbiar en tiempo de ejecución a tu gusto y tendrás la imagen deseada.

Pues esa propiedad no existe, por lo menos yo no la encuentro en el TabControl de delphi 7.

Hasta Luego -

[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

[lucasarts_18]

Hola:

En el pageControl tienes esa propiedad, pero no en el tabcontrol, y se está preguntando por este último, creo que no hay manera de implementarlo en el tabcontrol.
Hay que cambiarse al PageControl !!!!

[yusnerqui]

Lo siento, me refería al TPageControl.

Saludos