Delphi-PRAXiS - Delphi Treeview

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Treeview (https://www.delphipraxis.net/32886-treeview.html)

Hallo .Ich habe eine Frage.

Ich habe einen Treeview mit Knoten und Unterknoten.
Wenn ein knoten unterknoten besitzt. Steht ja das [+] vor dem Parentknoten, und ich kann beim klick auf das [+]Zeichen.
den Knoten aufklappen.Dies erreiche ich aber auch mit einem Doppelklick auf den entsprechenden knoten.
Problem: Wie kann ich das [+] deaktivieren , so das ich nur per doppelklick den knoten aufklappen kann.

Das [+] - Zeichen sollte aber sichtbar bleiben. Mit ShowButton=False; ist zwar das [+] Zeichen deaktiviert. aber es ist auch nicht mehr sichtbar.

Danke

Moin

Du könntest im Ereigniss OnExpanding der Variable AllowExpansion true oder false mitgeben, jeh nachdem wie der Knoten aufgeklppt werden soll.

Das wiederum müsstest du mit der Eigenschaft GetHitTestInfoAt des Treeviews herrausbekommen können.

So als grober Lösungsansatz :-)

schönen Gruß

Sam

[edit]

Delphi-Quellcode:

			procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;

  var AllowExpansion: Boolean);

var x, y : Integer;

begin

  x := (sender as TTreeview).ScreenToClient(Point(Mouse.CursorPos.x,Mouse.CursorPos.y)).x;

  y := (sender as TTreeview).ScreenToClient(Point(Mouse.CursorPos.x,Mouse.CursorPos.y)).y;

  AllowExpansion := (htOnLabel in (sender as TTreeview).GetHitTestInfoAt(x,y));

end;

So als feinerer Lösungsansatz :-)

schönen Gruß

Sam
[/edit]

HI!

Danke für deine Hilfe.Ich werde es gleich mal ausprobieren!
mfg

Hi Sam !

Das funktioniert super. Ich war am verzweifeln.
Vielen Dank nochmal.

schöne Grüsse