скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



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

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

Предлагаю свою процедуру в раздел "Компоненты" - "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;

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






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook