De esa manera , hay un problema .
Mi código es más o menos así :
Código Delphi
[-]
procedure TForm.Oncreate;
var
nodo : array of TTreenode;
SetLength(nodo,X);
nodo[0] := TreeView1.Items.add(nil,'Informes');
nodo[0].ImageIndex := 2;nodo[0].SelectedIndex := 2;
while not TablaCarpetas.eof do
begin
nodo[ivalordelabasededatos] := TTreeView1.items.AddChild(padre,'Texto');
nodo[ivalordelabasededatos].ImageIndex := 0;
nodo[ivalordelabasededatos].SelectedIndex := 0;
end;
while not TablaInformes.eof do
begin
nodo[ivalordelabasededatos] := TTreeView1.items.AddChild(padre,'Texto');
nodo[ivalordelabasededatos].ImageIndex := 1;
nodo[ivalordelabasededatos].SelectedIndex := 1;
end;
Bien , si hago esto , el primer valor , el raiz , NO toma la imagen , y luego los demás si los lleva bien , PERO , cuando selecciono un nodo de los que contiene la propiedad ImageIndex = 1 , se me cambia la imagen al que tiene el ImageIndex := 0.
Este es el problema. Que si me los rellena , pero al seleccionar pues los de dibujo informe ,cambia el icono.