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.