TMemo mit dem mausrad scrollen ohne scrollbar?!

[Nextasy2k]

Hallo an alle, gibt es die Möglichkeit in einem Memo trotz deaktivierter Scrollbar mit den Mausrädern zu scrollen ? Hab leider nichts via Google gefunden. Vielleicht kann mir ja hier jemand weiterhelfen falls es überhaupt möglich ist?!

[Aviator]

Warum nicht einfach die Scrollbar aktivieren?

[Nextasy2k]

Weil ich sie eben deaktiviert halten möchte, soweit es dafür eine Lösung gibt

[Horst0815]

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  I: Integer;
begin
  Handled := PtInRect(memo1.ClientRect, memo1.ScreenToClient(MousePos));
  if Handled then
    for I := 1 to Mouse.WheelScrollLines do
    try
      if WheelDelta > 0 then
        memo1.Perform(WM_VSCROLL, SB_LINEUP, 0)
      else
        memo1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
    finally
      memo1.Perform(WM_VSCROLL, SB_ENDSCROLL, 0);
    end;
end;

[Nextasy2k]

Wow Dankeschön, werd ich später wenn ich am pc bin gleich probieren !!!

[Nextasy2k]

Danke Horst0815, funktioniert einwandfrei!!!