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

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
;

Другое по теме:

• Включить изображение курсора в снимок экрана
• Добавление события OnMouseLeave
• Избавиться от раздражающего SQL Wait курсора