Warum benutzt Du denn die Scrollbars so kompliziert?
Ich würde die Eigenschaft "Position" nehmen und in dem Edit anzeigen...
Vorher natürlich die Eigenschaften "Min" und "Max" mit den gewünschten Werten füllen.
Delphi-Quellcode:
procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
Edit6.Text := ScrollBar2.Position;
end;
Gruß
Wormid
Debuggers don't remove Bugs, they only show them in Slow-Motion.