Ich mache das nun so:
Delphi-Quellcode:
procedure Main_Tree_fuellen(SpeedButton: TSpeedButton);
var
oNewNode: TTreeNode;
begin
With FM_Main do
begin
TV_Main.Items.Clear;
oNewNode := TV_Main.Items.AddObject(nil, 'Auftragsverwaltung', Nil);
oNewNode.ImageIndex := 1;
oNewNode.SelectedIndex := 2;
TV_Main.Items.AddChildObject(oNewNode, 'Erfassung', Nil );
TV_Main.Items.AddChildObject(oNewNode, 'Aufträge', Nil );
end;
end;
Aber die Images werden nciht angezeigt. Warum ?