Menü (PopUpMenu) mit der Rechtenmaustaste aufrufen ?

[BullsEye]

ggf.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
VAR  P: TPoint;
begin
  P := ClientToScreen(Point(Button1.Left + Button1.Width div 2,
                            Button1.Top + Button1.Height div 2));
  PopupMenu1.Popup(P.X, P.Y);
end;

Musste nur für dein Panel übernehmen