Советы по Delphi



Вызов контекстного меню в позиции курсора


У меня есть проблема с правильным вызовом контекстного меню в координатах курсора мыши.

Это будет работать:

    procedure TForm1.Form1MouseDown(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;

- Ed Jordan [000953]




Содержание  Назад  Вперед