Win10 -> TListBox -> MouseWheel -> ausserhalb des Controls scrollen

[Papaschlumpf73]

Zitat von dummzeuch:

Zitat von dummzeuch:

Das Problem sollte sich aber beheben lassen, in dem man im Formular die Wheel-Messages abfängt und an die Listbox weiterleitet. Man muss nur aufpassen, dass sie dann nicht doppelt verarbeitet werden, wenn die Listbox den Focus hat.

Manchmal habe ich das Gefühl, ich bin hier im Spam-Filter gelandet, weil gefühlt die meisten meiner Beiträge ignoriert werden.

Oder ist diese Lösung zu kompliziert?

Vielleicht liegt’s ja an deinem Namen. Obwohl, ich finde den super 😂

[tomkupitz]

Etwas Quelltext:

Code:

procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if Msg.message=WM_MOUSEWHEEL then
  begin
    SendMessage(ListBox1.Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
    Handled:=True;
  end;
end;

Du kannst ggf. mit PtInRect noch prüfen in welchem Breich das so laufen soll.

Beste Grüße

[Uwe Raabe]

Wäre da GetFocus anstatt ListBox1.Handle nicht etwas generischer? Sonst wirkt das Scrollen ja immer nur in der ListBox.