Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Как создать ярлык
   Категория: Приложение
  Wav файл внутри exe-файла
   Категория: Файловая система
  Число строкой с предстоящими нулями
   Категория: Текст и строки
  Создать *.mdb-файл и таблицу в ней
   Категория: Базы данных
  Номер строки в memo под курсором
   Категория: Текст и строки
  Как удалить не пустой каталог
   Категория: Файловая система
  Перекодировка в DBASE
   Категория: Базы данных
  Функции дат в SQL
   Категория: Базы данных
  Создание кнопки на панели в IE
   Категория: Интернет и Сети
  Listbox - элементы вверх-вниз
   Категория: Компоненты

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;
  << Вернуться к Содержанию