Советы по Delphi
Вызов контекстного меню в позиции курсора
У меня есть проблема с правильным вызовом контекстного меню в координатах курсора мыши.
Это будет работать:
| procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif Button = mbRight thenwith ( Sender as TControl ).ClientToScreen( Point( X, Y )) doPopupMenu1.Popup( X, Y );end; |
- Ed Jordan [000953]
