Hallo!
Mein MausHook:
Delphi-Quellcode:
function MouseHookProc(nCode: Integer; MsgID: WParam; Data: LParam): LResult; stdcall;
begin
...
PostMessage(mainWnd, MouseHookMessage, MsgID, Data);
...
end;
Mein Hauptprogramm:
Delphi-Quellcode:
procedure TMainHookTestForm.WndProc(var Message: TMessage);
begin
...
MouseSignal(message.WParam, message.LParam);
end;
procedure TMainHookTestForm.MouseSignal(msgId: Integer; Data: Integer);
begin
...
logText := logText + 'mouse X: ' + IntToStr(mousePos.X) + ' Y: ' + IntToStr(mousePos.Y) + '/state=' + IntToStr(msgId) + '/data=' + IntToStr(Data) + #13#10;
...
end;
Wenn ich die Nachricht (msgID) "WM_MOUSEWHEEL" empfange,
steht in der Variable Data nichts verwertbares über das Mausrad-Delta drin.
Woher kann ich denn die Information bekommen, in welche Richtung das Mausrad gedreht wurde?