Moin
Der 'Bock' liegt in der -->
procedure Timportdata.list_dataClick(Sender: TObject); die kannst Du getrost vergessen, weil das nix bringt (wie Du ja selber feststellen musstest
).
Beim
Erstellen eines Baumknotens weist Du selbigen das entsprechende Image aus der Imagelist zu:
Delphi-Quellcode:
...
NeuerNode := list_data.Items.AddChild(...);
NeuerNode.ImageIndex := 0; //--Image im Normalzustand (unselektiert)
NeuerNode.SelectedIndex := 1; //--Image für den selektierten Knoten
...