rechtsklick auf form --> popupmenu

[passsy]

Delphi-Quellcode:

procedure Tsession.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 point:Tpoint;
begin
if Button=mbRight then
 begin
  GetCursorPos(point);
  PopupMenu1.Popup(point.x, point.y);;
 end;
end;

so läufts jetzt bei mir und ich bin glücklich danke jungs