Immer im Control unter dem Mauszeiger scrollen

[himitsu]

Einige finden es bestimmt nervig, daß immer im Control mit dem Eingabefokus gescrollt wird und nicht dort, worüber sich der Mauszeiger befindet.

Hier ist also eine mögliche einfache Lösung dafür:

Delphi-Quellcode:

Procedure TForm1.MessageEvent(Var Msg: TMsg; Var Handled: Boolean);
  Var H: HWND;

  Begin
    If ((Msg.message = WM_MOUSEWHEEL) or (Msg.message = WM_MOUSEHWHEEL))
        and (Msg.wParam and MK_CONTROL = 0) Then Begin
      H := WindowFromPoint(Msg.pt);
      If (H = 0) or ((Msg.hwnd <> H) and (GetWindowThreadProcessId(H, nil) <> GetCurrentThreadId)) Then Begin
        Msg.hwnd := 0;
        Msg.message := WM_NULL;
        Handled := True;
      End Else Msg.hwnd := H;
    End;
  End;

Und dann natürlich noch Application.OnMessage := MessageEvent; .

Achtung: Wenn noch was Anderes dem Application.OnMessage zugewiesen ist/wird, dann muß man dieses mit beachten.


Ach ja, dieser Code leitet die Scrollereignisse immer nur im eigenem Programm weiter.
Es wird also nichts an fremde Programme übergeben. (stattdessen würde das Scrollergeignis verworfen)
Und das auch nur, wenn das eigene Programm den Eingabefokus besitzt.
(sonst empfängt es ja keines der nötigen Ereignisse)

[add]
Durch Drücken der [Strg/Ctrl]-Taste kann man die Umleitung nun auch vorübergehend deaktivieren.

[wolfgang_SV]

Dein Beispiel hat einen schweren Bug.

GetWindowLong(H, GWL_HINSTANCE) und HInstance können den gleichen
Wert haben.

Da unter 32-Bit Windows jeder Prozess in seinem eigenen Adressraum läuft und HInstance der Basisadresse entspricht, an die ein Prozess geladen wurde (Die in den meisten Fällen 0x00400000 sein wird, da dies die standard Adresse ist, an der ein Prozess geladen wird.), kann man damit natürlich einen Prozess nicht mehr eindeutig identifizieren.

Das heißt, dass verschiedene Anwendungen den gleichen Hinstance-Wert
haben können...

[himitsu]

Joar, ich wollte gestern auch das ProcessHandle, bzw die ProcessID verwenden, aber fand es nicht schnell genug.
Nja, und das HInstance lief halt auch ... nur daran hatte ich garnicht gedacht.

Aber jetzt hab ich doch nochmal gesucht und verwende nun lieber die ThreadID.

[wolfgang_SV]

mit der ThreadID funtioniert es fehlerfrei..

aber was mir jetzt aufgefallen ist , versteh ich überhaupt nicht..

wenn ich den Focus auf ein dbgrid setze, funktioniert das Weiterleiten
auf ein anders Control nicht mehr.

die Scroll-message bleibt trotzdem im dbgrid hängen..

nehm ich den Focus wieder aus dem dbgrid raus, funktionierts wieder.

Vielleicht hast du ne Ahnung...

[toms]

Zitat von wolfgang_SV:

wenn ich den Focus auf ein dbgrid setze, funktioniert das Weiterleiten
auf ein anders Control nicht mehr.

Hilft das? http://delphi.about.com/cs/adptips20...ltip1102_3.htm

[wolfgang_SV]

danke für den Tipp.
aber das kenn ich schon und hab es bei mir auch schon implementiert.
Doch das ist nicht das Problem...