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

Материал из DRKB

Отключить реакцию на события мыши[править | править код]

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;


Source: http://delphiworld.narod.ru
ID: 01594