Danke ! Sry hab die Antwort erst jetzt gelesen
Deine Lösung war die richtige !
Delphi-Quellcode:
procedure Tf_USBLOCK.treeGroupsContextPopup(Sender: TObject;
MousePos: TPoint; var Handled: Boolean);
begin
treeGroups.Selected := treeGroups.GetNodeAt(MousePos.X,MousePos.Y);
end;