versuchs mal mit
Delphi-Quellcode:
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
if Scrollpos > 50 then ScrollPos :=50;
end;
Durch das Ändern des Wertes Scrollpos sollte der gewünschte effekt eintreten