Отключить реакцию на события мыши
01.01.2007
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;
DelphiWorld 6.0