Mal wieder das lustige Thema MouseWheel

[Codehunter]

Hallo!

Unter Windows ist es üblich, dass WM_MOUSEWHEEL nur dorthin gesendet wird, wo auch der aktuelle Eingabefocus liegt. Unter Umständen scrollt also ein Control bei gedrehtem Wheelrad selbst dann, wenn sich der Mauszeiger außerhalb des BoundsRect des betreffenden Controls befindet.

Einige Programme wie z.B. der Opera Browser verhalten sich anders. Sie scheinen WM_MOUSEWHEEL abzufangen und gezielt an das Control zu schicken, über dem sich der Mauszeiger befindet, unabhängig davon, ob das betreffende Control gerade den Eingabefokus hat oder nicht. Das Resultat ist eine viel komfortablere Bedienung (wie ich finde).

Jetzt versuche ich das in meiner Delphianwendung nachzubauen und komme irgendwie nicht richtig voran. Ich fange WM_MOUSEWHEEL wie folgt ab:

Delphi-Quellcode:

procedure TwndMain.WMMouseWheel(var Msg: TWMMouseWheel);
var
  P: TPoint;
  H: HWND;
begin
  P.X:= Msg.Pos.X;
  P.Y:= Msg.Pos.Y;
  H:= WindowFromPoint(P);
  if H > 0 then begin
    if H <> Windows.GetFocus then Windows.SetFocus(H);
    SendMessage(H, WM_MOUSEWHEEL, TWMVScroll(msg).ScrollCode, TWMVScroll(msg).Pos);
  end;
end;

Funktioniert aber nicht. WM_MOUSEWHEEL geht weiterhin nur an das Control mit dem Fokus, selbst wenn der Mauszeiger nicht darüber ist. Das Control über dem sich der Mauszeiger befindet erhält keine WM_MOUSEWHEEL Nachricht.

Ich hoffe, ihr könnt mir da ein bisschen helfen

Grüße
Cody

[alex517]

Vielleicht hilft das redirect-mouse-wheel-message-to-a-control-under-the-mouse weiter.
alex

[Codehunter]

Jo, das wirkt Ich musste zwar einige zickige Komponenten anpassen (z.B. VirtualStringTree, welcher unbedingt sein eigenes Wheel-Catching betreiben musste) aber ansonsten gehts.

Ich finde diese Art des Wheel-Handlings viel besser als den Windows-Standard, bei dem man immer erst das betreffende Control links anklicken muss. Vor ein paar Jahren gab es von Logitech mal einen Maustreiber den man auf dieses Verhalten einstellen konnte. Leider haben die dieses Feature inzwischen wieder ausgebaut.

[stahli]

Ich habe das in meinem Projekt auch so umgesetzt (hatten wir schon mal analog in der DP) und gerade kürzlich gedacht, dass eine entsprechende TApplication-Option o.ä. sinnvoll wäre, mit der man dieses Verhalten leicht einstellen könnte (MouseWheelUnderCursor=True).