Mit dem Mausrad in einer Scrollbox scrollen

**delphicoder123**

Hallo,
wenn ich in einer Scrollbox mit dem Mausrad scrolle, dann soll die Scrollbar nach unten bzw. oben scrollen.
Warum bewegt sich die Scrollbar kein Millimeter?

Hier der Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;

  MousePos: TPoint; var Handled: Boolean);

begin

  ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + 20;

end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;

  MousePos: TPoint; var Handled: Boolean);

begin

  ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - 20;

end;

Mit dem Mausrad in einer Scrollbox scrollen

Mit dem Mausrad in einer Scrollbox scrollen

Forumregeln