Foros Club Delphi - Ver Mensaje Individual

[maeyanes] · #2 25-09-2006

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