Ärger bei Scrollbox mit .Min, .Max und PageSize

[delphin]

Hallo marabu,

Danke für Deine Antwort. Für eine Textbox magst Du ja recht haben, wobei ich trotzdem der Meinung bin, wenn ich schon 50% von 100% sehe brauche ich auch nur noch die restlichen 50% nach unten scrollen.

Nun aber zu Deinen Lösungvorschlag: abfangen im OnScroll-Ereignis:

Hatte ich schon probiert und so ging es nicht:

Delphi-Quellcode:

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
begin if (ScrollBar1.Position) > 50 then ScrollBar1.Position:=50;

end;