Treeview durchblättern

[Delphiturbo]

Hallo


wenn mein Programm startet, wird das 1. Child gewählt :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
TreeView1.SetFocus;
TreeView1.Items[1].Selected := True;
end;

wie kann ich die Auswahl über 2 Buttons Nachoben und Nachunten bewegen ?

gruß

[Die Muhkuh]

Index auslesen und dann um eins erhöhen bzw. um eins erniedrigen.

[Delphiturbo]

Die Sache war alles in ListBox. Es war sehr einfach :
Nachoben-Button :

Delphi-Quellcode:

ListBox1.Itemindex := ListBox1.Itemindex +1;

In Treeview klappt nicht !

[alzaimar]

Delphi-Quellcode:

If Assigned(Treeview.selected) Then
  Treeview.Selected := Treeview.Selected.GetNext
Else
  Treeview.Items[0].Selected := True;

Und:

Delphi-Quellcode:

TreeView.HideSelection := False;

Sonst sieht man nix.

[Delphiturbo]

Es geht mit dem Code :

Delphi-Quellcode:

Treeview1.Selected := Treeview1.Selected.GetNext
Treeview1.Selected := Treeview1.Selected.Getprev

Ich möchte gerne keine Parents auswählen also wo Index=0 soll die Auswahl zu dem nächten Child springen. Ist es möglich ?

[Nuclear-Ping]

Soweit ich weiß, sollte dir die Delphi Hilfe Aufschluss über die verfügbaren Methoden geben. Afaik sollte dir GetFirst, GetNext, GetFirstChild, GetNextChild, GetFirstSelected, etc. zur Verfügung stehen. Zeig doch mal bisschen Eigeninitiative! ;)

[Delphiturbo]

ich kann zwar ein Child wählen und die Auswahl bewegen nach oben und nach unten
aber es wird nicht angeklickt auf Child !!!

Ich wollte damit das Klicken mit der Maus sparen :mrgreen:
gibt es einen Trik Auswaehen + Klick :

Delphi-Quellcode:

Treeview1.Items[0].Selected := True;
// + ?

[Die Muhkuh]

Für einfach das OnClick-Event aus.

[hoika]

Hallo,

mache doch mal ein kleines Bsp.
zippe es und hänge es hier an.

Und schreieb rein,
was rauskommen soll.

So richtig verstehe ich dein Problem nicht.

Schönen Vatertag noch ;)


Heiko

[Die Muhkuh]

Hi Heiko,

meine Auffassung, was er möchte: Über Buttons durch die Childs wechseln. Dazu möchte er das OnClick-Ereignis ausführen.