Treeview & PopupMenue & GetNodeAt

[Lannes]

Hallo,

oder so:

Delphi-Quellcode:

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  p : TPoint;
begin
  if (htOnItem in TreeView1.GetHitTestInfoAt(x,y)) then
    begin
      p.x := X;
      p.y := Y;
      p := TreeView1.ClientToScreen(p);
      PopupMenu1.Popup(p.x,p.y);
    end;
end;