Звонок:
- У вас мыши есть?
- Нет...
- А когда будут?
- Не знаю...
- Это 'Демос'?
- Нет, квартира...
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
Handled := (msg.wParam = vk_lButton) or
(msg.wParam = vk_rButton) or
(msg.wParam = vk_mButton);
end;
Статья Отключить реакцию на события мыши раздела ОС и Железо Мышка и Курсор может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.