Отключить реакцию на события мыши

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Отключить реакцию на события мыши

Автор: KDenis

Звонок:
- У вас мыши есть?
- Нет...
- А когда будут?
- Не знаю...
- Это 'Демос'?
- Нет, квартира...

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;