TreeView Auswahl aufheben

[BetaBot]

Hallo Delphi - Gemeinde,

nach langer erfolgloser Suche habe ich mich entschlossen, hier zu posten. Mein Problem erscheint so simpel und doch kann ich es nicht lösen. Zur Veranschaulichung: ich habe eine ListBox und einen TreeView (wirklich nur zur Veranschaulichung).

ListBox: 1. Meier 2. Schulze 3. Lehmann

Treeview:

Land
Stadt
Straße

Edit: zeigt die entsprechenden Daten

Ich wähle Meier aus der ListBox, dann Land aus TreeView und Edit zeigt die Daten.
Nun mein Problem: Jetzt wähle ich Schulze aus der ListBox und wieder Land und es passiert nichts.
Der gewählte Knoten und die folgende Aktion wird im OnChange - Ereignis des TreeViews festgelegt.
Nun mein Verdacht: Bei Schulze und wieder Land passiert nichts, weil Land im TreeView immer noch selektiert ist und somit nichts "gechanged" wird.
Wie kann ich die Selektion auflösen?

myTreeView.Deselect(myTreeView.Selected) funktioniert nicht.

Ich hoffe, ich konnte mein Problem ausreichend darstellen und ihr könnt mir helfen.
Danke im Voraus,

der BetaBot

[dominikkv]

Ich würde auch noch im onChange der ListBox das Edit aktualisieren (TEdit als anzeige?!).

Ansonsten:
myTreeView.Selected := NIL; Aber achtung: auch das löst das OnChange aus.

[BetaBot]

Hi Dominik,

myTreeView.Selected := Nil; löst bei mir eine Zugriffsverletzung aus. Ich denke, wegen Case Node.SelectedIndex of im OnChange - Ereignis der TreeView.
Wenn ich TreeView.Selected := Nil setze, wie groß ist den dann der SelectedIndex? -1? oder 0?

Vielleicht kann ich in die OnChange etwas schreiben wie If Node.SelectedIndex < 0 then exit , oder so...

[dominikkv]

Node.SelectedIndex ist immer 0, egal welchen Eintrag ich wähle. Und wegen dem kommt auch die AV. Was du meinst ist wohl Node.Index, Node ja der Ausgewählte Eintrag ist.
Dieser ist nachmyTreeView.Selected := Nil; -1

Und prüfen würde ich mit
if Assigned(Node) then

[BetaBot]

Hab die Lösung gefunden:

Im OnClick - Ereignis der ListBox:

myTreeView.Selected := nil; Im OnChange - Ereignis der TreeView:

If myTreeView.Selected = nil then Exit; Am Ende doch machbar. Ich hoffe, es hilft vielleicht noch dem einen oder anderen.

Tschüß,

der BetaBot