Scrollbar Değişkeni Değişikliği

1 tane scrollbar ekleyerek scrollbar her değiştirildiğinde ekrana değerini yazan programın kodu.

Kodu;

procedure TForm1.FormCreate(Sender: TObject);

var

sayi:single;

karakter: string[4];

begin

sayi:=scrollbar1.max/2;

karakter:=floattostr(sayi);

scrollbar1.position:=strtoint(karakter);

end;

procedure TForm1.FormClick(Sender: TObject);

begin

showmessage('position değişkeninin içeriği:' + IntToStr(ScrollBar1.Position));

end;

end.