[Enan0]

Estoy utlizando el componente TreeView para hacer una especie de Carpetas de Correo.

Nivel 0 (nombre de la Cuenta)
Nivel 1 (sub carpetas, Inbox, Sent.. etc).


ahora bien. cuando pongo un Icono en el Nivel 0, (y distintos o ninguno en nivel 1), al hacer Click en cualquier de los hijos (niveles 1) Cambia automaticamente el Icono del Item seleccionado del Padre (nivel 0).

Trabajo con delphi 5

Código Delphi [-]
var
  node:TTreeNode;
  child:TTreeNode;
begin
    Node:=TreeView1.Items.AddObjectFirst(nil,'cuenta1',PChar('Cuenta1'));
// esta linea fue agregada para probar su funcionamiento.. (igual resultado)
    TreeView1.Items.Item[node.AbsoluteIndex].ImageIndex:=0;
//fin test
    node.ImageIndex:=0;
    TreeView1.Items.AddChildFirst(node,'@Inbox').ImageIndex:=1;
    TreeView1.Items.AddChild(node,'@SentItems').ImageIndex:=1;

    node:=nil;


     Node:=TreeView1.Items.AddObject(nil,'Cuenta2',PChar('cuenta2'));
    TreeView1.Items.Item[node.AbsoluteIndex].ImageIndex:=0;
    node.ImageIndex:=0;
    TreeView1.Items.AddChildFirst(node,'@Inbox').ImageIndex:=1;
    TreeView1.Items.AddChild(node,'@SentItems').ImageIndex:=1;

    node:=nil;