Cita:
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.