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;