TreeView -> SelectedIndex wird nicht übernommen ?

[HolgerCW]

Hallo zusammen,

warum wird der selected index nicht übernommen ?

Habe es so gemacht:

Delphi-Quellcode:

TV_Main.Items.Clear;
oNewNode.ImageIndex := 0;
oNewNode.SelectedIndex := 2;
oNewNode := TV_Main.Items.AddObject(nil, 'Auftragsverwaltung', Nil);
oNewNode.ImageIndex := 1;
TV_Main.Items.AddChildObject(oNewNode, 'Erfassung', Nil );
TV_Main.Items.AddChildObject(oNewNode, 'Aufträge', Nil );

Gruss

Holger

[himitsu]

oNewNode := TV_Main...
überschreibt die vorherig eingestellen Eigenschaften

Delphi-Quellcode:

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 );

PS: oNewNode wurde doch vor oNewNode := TV_Main.Items.AddObject(nil aber noch nicht erstellt ... müßte es da nicht krachen :gruebel:

[Tyrael Y.]

Was du suchst ist

Delphi-Quellcode:

procedure Select(const Nodes: arrayofTTreeNode); overload; virtual;

procedure Select(Nodes: TList); overload; virtual;

procedure Select(Node: TTreeNode; ShiftState: TShiftState = []); overload; virtual;

um eine Node zu selektieren.

[HolgerCW]

Hi, danke schon mal,

wie bekomme ich denn erstmal alle ChildObjekte mit anderen Buttons. Denn so:

Delphi-Quellcode:

TV_Main.Items.Clear;
oNewNode := TV_Main.Items.AddObject(nil, 'Auftragsverwaltung', Nil);
oNewNode.ImageIndex := 1;
oNewNode.SelectedIndex := 0;
TV_Main.Items.AddChildObject(oNewNode, 'Erfassung', Nil);
oNewNode.ImageIndex := 5;
TV_Main.Items.AddChildObject(oNewNode, 'Aufträge', Nil);

Hat nur das erste Objekt den imageIndex = 5 und alle Childs haben den imageIndex = 0 bekommen ???

[himitsu]

oNewNode (also auch oNewNode.ImageIndex:=5; ) wurde durch
oNewNode := TV_Main.Items.AddObject(nil, 'Auftragsverwaltung', Nil);
erstellt, also zeigt oNewNode nur auf das 'Auftragsverwaltung'-Item

Delphi-Quellcode:

TV_Main.Items.Clear;
oNewNode := TV_Main.Items.AddObject(nil, 'Auftragsverwaltung', Nil);
oNewNode.ImageIndex := 1;
oNewNode.SelectedIndex := 0;
oNewNode2 := TV_Main.Items.AddChildObject(oNewNode, 'Erfassung', Nil);
oNewNode2.ImageIndex := 5;
{oNewNode2 :=} TV_Main.Items.AddChildObject(oNewNode, 'Aufträge', Nil);

[HolgerCW]

Es läuft nun. Danke