PopupMenu по нажатие на кнопку

[KoBRaAndrey]

PopupMenu по нажатие на кнопку левой или правой кнопкой мышки

[Volt]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
begin
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
end;

[raxp]

например так...

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if button=mbRight then
 //if button=mbleft then
  popupmenu1.Popup(Mouse.CursorPos.x, Mouse.CursorPos.y);
end;

зы: опередили

[KoBRaAndrey]

на кнопку!на button!

[mihali4]

Все то же самое, что вам указали:

PopupMenu1.Popup(X, Y);

только укажите свои координаты, где оно должно появляться...