Einzelnen Beitrag anzeigen

delphin

Registriert seit: 21. Aug 2003
Ort: Chemnitz
29 Beiträge
 
Delphi 7 Professional
 
#4

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

  Alt 11. Dez 2006, 09:29
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;
  Mit Zitat antworten Zitat