Какая кнопка 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]
