Einzelnen Beitrag anzeigen

Exceeder

Registriert seit: 29. Mai 2006
24 Beiträge
 
#1

Control unter dem Mauszeiger ermitteln und Scrollevent an dieses weiterleiten

  Alt 16. Jul 2010, 13:49
Hallo,

ich möchte gerne das Scrollverhalten meiner Anwendung ändern. Unter Windows ist es ja normalerweise so, dass immer das Fenster gescrollt wird, was aktuell den Fokus hat. Ich möchte aber, dass dort gescrollt wird, wo sich der Mauscursor befindet.

Ich habe mich dazu an das Application.OnMessage Event gehangen und die Botschaft WM_MOUSEWHEEL abgefangen. In der Routine soll das aktuelle Control (nicht nur das Fenster) des Mauscursors ermittelt werden. Das Fenster bekomme ich hin, allerdings weiß ich nicht, wie die entsprechende API-Funktion aussieht, welche auch das Control ermittelt.

Hier mein Quelltext:

Delphi-Quellcode:
procedure TMainForm.MessageHandler(var Msg: TMsg; var Handled: Boolean);
var
  Handle: HWND;

begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    Handle := WindowFromPoint(Msg.pt);

    if Handle <> 0 then
    begin
      Handle := ChildWindowFromPoint(Handle, Msg.pt);

      if (Handle <> 0) and (Handle <> Msg.hwnd) then
      begin
        PostMessage(Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
        Handled := True;
      end;
    end;
  end;
end;
Leider liefert ChildWindowFromPoint auf Basis des übergebenen Handels wieder das selbe Handle zurück, welches ich reingegeben habe. Was mache ich falsch? Msg.pt scheint Screen-Koordinaten zu enthalten.
  Mit Zitat antworten Zitat