Shape и меню

[IliaIT]

вопрос такой на форме есть компоненты Shape1 и PopupMenu1. как сделать что бы на правый клик по Shape1 вызывалась эта менюшка?

[Lesha]

у фигуры на событие OnMouseDown

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var mP: TPoint;
begin
  if Button = mbRight then begin
    GetCursorPos(mP);
    PopupMenu1.Popup(mP.X, mP.Y);
  end;
end;

[Serge_Bliznykov]

к слова Lesha могу добавить.
предложенный им вариант может быть записан ещё и так (пример взять в DelphiWorld):

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    with ( Sender as TControl ).ClientToScreen( Point( X, Y )) do
      PopupMenu1.Popup( X, Y );
end;

а ещё у Shape есть событие onContextPopup
можно использовать такой вариант (в качестве альтернативы вышепредложенному):

procedure TForm1.Shape1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
  pt: TPoint;
begin
  pt := ClientToScreen( MousePos);
  PopupMenu1.Popup(Shape1.Left+pt.x, Shape1.Top+pt.y);
end;

К сожалению, моего опыта и знаний не хватает в данной области, чтобы сказать, какой вариант лучше, надёжней и более правилен.

Надеюсь, что коллеги по форуму прокомментируют и порекомендуют..

[IliaIT]

спасибо разобрался. да кстати событие onContextPopup лучше не использовать. так как если к форме на которой находиться Shape1 привязано меню, то оно появиться тоже. точнее появится после первого нужного меню.
А лучше использовать событие MouseUp тогда получается полная имитация.