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;
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
;