Skip to content

Instantly share code, notes, and snippets.

Created August 29, 2017 20:03
Show Gist options
  • Save anonymous/f4b0cae58972fee76207287c5a394cc2 to your computer and use it in GitHub Desktop.
Save anonymous/f4b0cae58972fee76207287c5a394cc2 to your computer and use it in GitHub Desktop.
Delphi правая кнопка мыши

Delphi правая кнопка мыши


Delphi правая кнопка мыши



dbgrid + правая кнопка мыши
Delphi основы работы с мышкой
Щелчок мыши и его обработка


























Команды для правой кнопки мыши. Интересует вопрос, как назначить для правого щелчка мышью на каждой из кнопок не общую, а СВОЮ команду, как в случае со щелчком левой клавишей? Знаю, что можно на OnMouseDown и OnMouseOn свои команды повесить, но если кнопок много? String ; function GiveMeExample ASubject: TStringList; procedure WriteReview APost: TStringList ; end ;. AleD Посмотреть профиль Отправить персональное сообщение для AleD Отправить Email для AleD Найти все сообщения от AleD. Одно действие для множество кнопок? Поиск в этой теме: Поиск в этой теме. Команды для правой кнопки мыши Здравствуйте! Отправить персональное сообщение для praeeo. Найти все сообщения от praeeo. Сообщение от praeeo Здравствуйте! Отправить персональное сообщение для AleD. Отправить Email для AleD. Найти все сообщения от AleD. Сообщение от AleD Всмысле? Отправить персональное сообщение для ryderx Отправить Email для ryderx Найти все сообщения от ryderx Сообщение от ryderx34 Код: Версия для печати Отправить на Email. Линейный вид Комбинированный вид Древовидный вид. Ваши права в разделе. Вы не можете создавать темы Вы не можете отвечать на сообщения Вы не можете прикреплять файлы Вы не можете редактировать сообщения BB-коды Вкл. Новости Исходники Компоненты Статьи Добавить исходник Поиск. Правила Поиск Сообщения за сегодня Пользователи Кто на форуме? Delphi FAQ - статей DRKB - статей ZIP-архив Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Новости сайта Новости форума. Ссылки и Баннеры Donate О сайте Реклама Контакты.


Команды для правой кнопки мыши


Каждый элемент управления обладает набором свойств и методов, обеспечивающих управление мышью. Понятно, что это важный и нужный механизм. Рассмотрим кратко его устройство. Воздействие мышью на интерфейсные элементы приложения разработчик может отслеживать при помощи целой группы методов-обработчиков. На нажатие кнопки мыши реагирует метод: Integer of object; property OnMouseDown: TMouseEvent; В параметре Button передается признак нажатой кнопки: На отпускание кнопки мыши реагирует метод: Integer of object; property OnMouseUp: TMouseEvent; Его параметры описаны выше. При перемещении мыши можно вызывать метод-обработчик: Integer of object; property OnMouseMove: TMouseMoveEvent; Если у разработчика нет необходимости так подробно отслеживать состояние мыши, можно воспользоваться двумя другими методами: TNotifyEvent; Первый реагирует на щелчок кнопкой, второй - на двойной щелчок. Каждый элемент управления может изменять внешний вид указателя мыши, перемещающейся над ним. Для этого используется свойство: TCursor; Для управления дополнительными возможностями мыши для работы в Internet ScrollMouse предназначены три метода обработчика, реагирующие на прокрутку: TMouseWheelUpDownEvent; OnMouseWheel вызывается при прокрутке вообще, OnMouseWheelUp - при прокрутке вперёд, OnMouseWheelDown - при прокрутке назад. В VCL имеется класс TMouse, содержащий свойства мыши, установленной на компьютере. Обращаться к экземпляру класса, который создается автоматически, можно при помощи глобальной переменной Mouse. Свойства класса представлены в таблице: Объявление Описание property Capture: HWND; Дескриптор элемента управления, над которым находится мышь property CursorPos: TPoint; Содержит координаты указателя мыши property Draglmmediate: Boolean; При значении True реакция на нажатие выполняется немедленно property DragThreshold: Integer; Задержка реакции на нажатие property MousePresent: UINT; Задает сообщение, посылаемое при прокрутке в ScrollMouse property WheelPresent: Boolean; Определяет наличие ScrollMouse property WheelScrollLines: TTimer; procedure FormMouseDown Sender: Integer ; procedure FormMouseUp Sender: Integer ; procedure FormMouseMove Sender: Integer ; procedure TimerTimer Sender: TObject ; private MouseRect: Color; end; procedure TMainForm. Integer ; begin IsDown: Polyline [Point Left, Top , Point Right, Top , Point Right, Bottom , Point Left, Bottom , Point Left, Top ] ; with StatusBar do begin Panels[4]. Integer ; begin with StatusBar do begin Panels[2]. Polyline [Point Left, Top , Point Right, Top , Point Right, Bottom , Point Left, Bottom , Point Left, Top ] ; Right: Polyline [Point Left, Top , Point Right, Top , Point Right, Bottom , Point Left, Bottom , Point Left, Top ] ; end; with StatusBar do begin Panels[4]. Top ; end; end; procedure TMainForm. TObject ; begin with StatusBar do begin Panels[0]. При нажатии левой кнопки мыши в методе-обработчике FormMouseDown включается режим рисования прямоугольника isDown: При перемещении мыши по форме проекта вызывается метод-обработчик FormMouseMove, в котором координаты курсора и размеры прямоугольника передаются на панель состояния. При отпускании кнопки мыши в методе FormMouseUp рисование прямоугольника прекращается isDown: Если была нажата правая кнопка мыши, то метод-обработчик FormMouseDown обеспечивает отображение диалога выбора цвета, который позволяет сменить цвет линий прямоугольника. Метод-обработчик TimerTimer обеспечивает отображение на панели состояния текущей даты и времени. The Delphi - это сайт, где вы научитесь программировать, писать свои собственные программы и игры на Delphi, а так же найдете статьи, исходники и компоненты. Опубликована новая статья по Delphi! Регистрация Всеми возможностями сайта можно пользоваться только после авторизации. GetDC handle вместо canvas. Всеми возможностями сайта можно пользоваться только после авторизации. Вместо этого надо GetDC panel1.


Мма женские бои без правил
В формулах электронных таблицмогут использоваться
Экономика организации предприятия грибова
Красивые снежинка своими руками
Образец соглашенияо переводев другое подразделение
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment