[Enan0]

Aprobechando el codigo de Abdul hago el siguiente comentario..


yo utulizo el TreeView para hacer una especia 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 al del Padre (nivel 0).

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;