Treeview & PopupMenue & GetNodeAt

[marabu]

Hallo Leute,

in D7 kann man TreeView.RightClickSelect auf TRUE setzen, ordnet der TreeView ein PopupMenu zu und schreibt einen Event-Handler für OnPopup():

Delphi-Quellcode:

procedure TDemoForm.TreeMenuPopup(Sender: TObject);
begin
  with TreeView.ScreenToClient(Mouse.CursorPos) do
    if not (htOnItem in TreeView.GetHitTestInfoAt(x, y)) then
      Abort;
end;

Grüße vom marabu