TreeView cambio de imagenes

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