Hallo,
hier eine Schmalspurlösung:
Delphi-Quellcode:
procedure TDemoForm.TreeViewClick(Sender: TObject);
var
point: TPoint;
begin
point := TreeView.ScreenToClient(Mouse.CursorPos);
TreeView.Selected := TreeView.GetNodeAt(point.X, point.Y);
end;
Je nach Komfortbedarf kannst du das noch um einen HitTest erweitern - zwingend notwendig, wenn du z.B. Drag-And-Drop im TreeView unterstützen willst.
Grüße vom marabu