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]