mouse_event

← →
pomashok (2004-12-01 11:20) [0]

Привет! Возникла такая необходимость:
1. Как проверить программно какое событие происходит MouseWheelUP или MouseWheelDown?
2. Как послать сообщение об эмуляции вращения колесика мышки (скажем через SendMessage может быть ;) )?

← →
WondeRu © (2004-12-01 12:49) [1]

pomashok (01.12.04 11:20)
Как проверить программно какое событие происходит

если в твоем приложении, то используй TAplication Events, событие WM_MOUSEWHEEL (жми F1)
а если во всей системе хочешь ловить, то используй DirectInput

а послылать событие от колеса запросто той же WM_MOUSEWHEEL

← →
pomashok (2004-12-01 13:03) [2]

по WM_MOUSEWHEEL (жми F1) у меня справки нету ;(
может есть ссылочка или кусок кода?

← →
TUser © (2004-12-01 13:40) [3]

> по WM_MOUSEWHEEL (жми F1) у меня справки нету ;(

См. Help -> Win32SDK

procedure Application1.OnMessage
(var Msg: TMsg; var Handled: Boolean) ;
var
i: SmallInt;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam) ;
if i > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;

Handled := False;
end;
end;

или

pulbic
procedure MouseWheel(var Message: TMessage); message WM_MOUSEWHEEL;

procedure MouseWheel(var Message: TMessage);
begin
Message.Msg := WM_KEYDOWN;
Message.lParam := 0;

if Message.WParam > 0 then
Message.WParam := VK_UP
else
Message.WParam := VK_DOWN;

SendMessage(Handle,Message.Msg,Message.WParam,Message.LParam);
end;

← →
pomashok (2004-12-01 14:11) [5]

spasibo :)

mouse_event Найти похожие ветки