БОЛЬШОЙ FAQ ПО DELPHI



Вызов контекстного меню в координатах курсора мыши

Автор: Тимошенко Александр

- В мой компьютер попал вирус.
- Ну и что же ты сделал?
- Прививку.
- Куда?
- Под мышку.

Предлагаю свою процедуру в раздел "Компоненты" - "PopupMenu" - "Вызов контекстного меню в координатах курсора мыши"


 procedure TForm1.Form1MouseDown(Sender: TObject; Button:
   TMouseButton; Shift: TShiftState; X, Y: integer);
 var
   FCursor: TPoint;
 begin
   if Button = mbRight then
   begin
     GetCursorPos(FCursor);
     PopupMenu1.Popup(FCursor.X, FCursor.Y);
   end;
 end;
 

Процедура, возможно, не особо оригинальна, но все же отличается от двух, ранее представленных в Ваших советах и довольно проста.




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



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



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