Umleiten von Mousewheel events funktioniert mit TStringGrid nicht

[TheFrog]

Hallo,

ich wollte in meiner Anwendung die Verhaltensweise implementieren, dass das WinControl gescrollt wird, welches sich unter dem Mauszeiger befindet, nicht das, welches den Focus hat.

Dazu habe ich folgenden Code für TApplicationEvents.OnMessage() gefunden:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  mousePos: TPoint;
  wc: TWinControl;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    mousePos.X := Word(Msg.lParam);
    mousePos.Y := HiWord(Msg.lParam);
    wc := FindVCLWindow(mousePos);
    if wc = nil then
    begin
      Handled := True;
    end
    else if wc.Handle <> Msg.hwnd then
    begin
      SendMessage(wc.Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
      Handled := True;
    end;
  end;
end;

Dies funktioniert soweit recht ordentlich (z.B. bei TMemo, TListBox, usw.), nur leider nicht bei allen Komponenten. Wenn ich z.B. eine TStringGrid auf das Formular ziehe wird das Grid nicht gescrollt, auch wenn es unter dem Mauszeiger ist. Genauso wird kein anderes WinControl gescrollt, welches unter dem Mauszeiger liegt, wenn das TStringGrid den Fokus hat.
Dies passiert auch mit anderen Komponenten (z.B. einige Komponten von DevExpress)!

Gibt es eine Möglichkeit, die Komponenten wie z.B. TStringGrid dazu zu bringen, dass diese auch auf MouseWheel wie alle anderen reagieren?

... oder habe ich hier irgendwas übersehen?

Ich hoffe ich konnte mich einigermaßen verständlich ausdrücken.

Danke schon mal!

[frankyboy1974]

hallo,

Zitat:

Gibt es eine Möglichkeit, die Komponenten wie z.B. TStringGrid dazu zu bringen, dass diese auch auf MouseWheel wie alle anderen reagieren?

Was erwartet der Anwender, wenn er sein MouseWheel betätigt? Gute Frage oder auch nicht. Also aus Anwendersicht würde ich vorsichtig sein, mit der Aussage, wie alle anderen.

mfg

frank


ps.: zum technischen Problem kann ich leider nichts beitragen, aber was ist an der Stelle Erwartungskomform???

[Der schöne Günther]

Ich weiß auch nicht ob ich das so toll finde. Es gibt 3rd-Party Tools (oder seit Windows 10 nativ einstellbar) die das systemweit irgendwie realisieren. Ich glaube ich wäre auch etwas ... überrascht.

Zum Problem: Getippt hätte ich dass der LPARAM nicht stimmt. Du gibst den ja unverändert weiter, und der enthält Koordinaten an welchem das andere TWinControl überhaupt nicht liegt.

Aber abgesehen davon funktioniert es bei mir noch nicht mal mit einem normalen TMemo. Obwohl SendMessage sogar TRUE zurückgibt. Komisch...

[TheFrog]

Über Sinn und Zweck dieses Verhaltens kann man natürlich streiten, aber wenn es ein ausdrücklicher Kundenwunsch ist ....

Mit TMemo, TListbox (auch der von DevExpress, also TcxListBox) funktioniert es bei mir so wie angegeben. D.h. ich denke, dass der Code grundsätzlich so passt.

Nur irgendwie werden die Events bei z.B. TStringGrid anderst behandelt, abgefangen ...?

[TheFrog]

Habe nochmals über lParam nachgedacht:

über diesen Code finde ich das darunterliegende Window:

Delphi-Quellcode:

    mousePos.X := Word(Msg.lParam);
    mousePos.Y := HiWord(Msg.lParam);
    wc := FindVCLWindow(mousePos);

d.h. doch dann, dass in lParam genau die Koordinaten für das darunterliegende Window stecken, oder?