TreeView cambio de imagenes

[Manuel]

Hola amigos del foro, tengo un TreeView, el cual tiene un nodo padre y un nodo hijo, tengo asignado en un objeto imageslist dos iconos, 0=imagen libro cerrado, 1=imagen libro abierto. Como lo podría hacer para cambiar la imagen del nodo padre cuando este se expande y a la vez cuando se contrae. Yo he hecho algo así.

nodoPadre.ImageIndex := 0;
nodoPadre.SelectedIndex :=1;

pero esto solo me funciona cuando seleciono el nodo padre, me imago que habrá algún método para esto he buscado en el foro pero no he encontrado nada.

[[maeyanes]]

Podrías usar los eventos OnCollapsing y OnExpanding para lograr lo que te propones:

Código Delphi [-]
procedure TForm1.TreeView1OnCollapsing(Sender: TObject; Node: TTreeNode; AllowCollapse: Boolean);
begin
  Node.ImageIndex := 0;
  Node.SelectedIndex := 0
end;

procedure TForm1.TreeView1OnExpanding(Sender: TObject; Node: TTreeNode; AllowExpand: Boolean);
begin
  Node.ImageIndex := 1;
  Node.SelectedIndex := 1
end;

Saludos...

[Manuel]

Empezado por maeyanes

Podrías usar los eventos OnCollapsing y OnExpanding para lograr lo que te propones:

Código Delphi [-]
procedure TForm1.TreeView1OnCollapsing(Sender: TObject; Node: TTreeNode; AllowCollapse: Boolean);
begin
  Node.ImageIndex := 0;
  Node.SelectedIndex := 0
end;

procedure TForm1.TreeView1OnExpanding(Sender: TObject; Node: TTreeNode; AllowExpand: Boolean);
begin
  Node.ImageIndex := 1;
  Node.SelectedIndex := 1
end;

Saludos...

Gracias marco me ha funcionado, algo habia hecho con expandig, pero no sabía como hacerlo cuando contraía, nunca se me habría ocurrido hacerlo en em método OnCollapsing, bueno el que sabe, sabe. Grcias de nuevo.