rechtsklick auf form --> popupmenu

[pilic]

Hi,

OnMouseDown

Delphi-Quellcode:

procedure TForm1.mdown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight
    then
      popupmenu1.popup(Left+x,Top+y);
end;

[Edit]Noch besser ist es, wenn das PopupMenu auch wirklich am Cursor ist[/Edit]