Отключить реакцию на события мыши
Falk0ner, вс, 06/07/2008 - 15:34.
Отключить реакцию на события мыши
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;
var Handled: Boolean);
begin
Handled := (msg.wParam = vk_lButton) or
(msg.wParam = vk_rButton) or
(msg.wParam = vk_mButton);
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий