БОЛЬШОЙ FAQ ПО DELPHI



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

Автор: Ed Jordan

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

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


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ