Какая кнопка Sender?

...я полагаю, что вы могли бы воспользоваться свойством панели PopupMenu и использовать событие кнопки MouseDown чтобы делать то, что вы делали выше. Также, я полагаю, вы должны выключить свойство Auto. Затем поместите в обработчик события OnMouseDown следующий код:

procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); var
P: TPoint; begin
with Sender as TBitBtn do if Button = mbRight then begin P := Self.ClientToScreen ( Point (Left + (Width div 2), Top + (Height div 2))); PopupMenu1.Popup (P.X,P.Y); end; end;

[001639]

Содержание раздела