Hallo
Vielen Dank für die Hilfe. Ich habe noch einen kleinen Verbesserungsvorschlag, damit das Popup-Menu auch an der Mausposition kommt:
Delphi-Quellcode:
procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p: TPoint;
begin
if Button = mbright then begin
p := Mouse.CursorPos;
PopUpMenu1.Popup(p.x,p.y);
end;
end;
Viele Grüsse
Stefan