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

Previous  Top  Next

    
 

 

Code:

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;

 

 

©Drkb::01594

http://delphiworld.narod.ru/

DelphiWorld 6.0