Popup

[Prym]

entschuldigung ich verstehe das nicht ich kenne delphi auch noch nicht so lange

ich habe das so probiert kommt aber das selbe raus deswegen wäre ich eine genauere hilfe nicht abgelehnt

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var LCursorPos: TPoint;
begin
  if button=MBright then showmessage('rechts');
  begin
    GetCursorPos(LCursorPos);
  PopupMenu1.Popup(LCursorPos.X, LCursorPos.Y);
  end;
if button=MBleft then showmessage('links');
end;