WM_MOUSEWHEEL abfragen

[stahli]

[quatsch gelöscht]

[PatrickB]

Zitat von DeddyH:

Und mit Perform, wie oben vorgeschlagen?

Was meinst du mit Perform? Bin jetzt nicht grad der Beste in Delphi

[DeddyH]

Delphi öffnen, "Perform" eintippen, markieren -> F1 . Aber ich will mal nicht so sein:

Delphi-Quellcode:

procedure TForm1.WndMessage(var msg: TMessage);
begin
  case msg.Msg of
    WM_VSCROLL,
    WM_MOUSEWHEEL: SynEdit2.Perform(msg.Msg, msg.wParam, msg.lParam);
  end;
  _OldProc(msg);
end;

[PatrickB]

Danke für die Hilfe, aber das klappt irgendwie auch nicht =(

[DeddyH]

Ich hab das mal mit 2 Listboxen getestet, da geht es.