Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ 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/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS