Treeview

[BluesKid]

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]