ScrollBar Delphi

Obyek ScrollBar digunakan untuk menunjukkan atau menampilkan angka dengan batasan tertentu

Contoh-contoh program yang menggunakan scrollbar :
Contoh 1
Program dibawah ini digunakan untuk mengatur warna form. Pengaturan menggunakan format RGB (Red Green Blue), dimana tiap warna tersebut memiliki nilai 1 - 255, setiap warna tersebut pengaturan nilainya menggunakan scrollbar. Sehingga ada 3 scrollbar pada program di bawah ini, ke3 scrollbar mewakili masing-masing warna, dan pencampuran ke3 warna tersebut dapat mengahasilkan warna lainnnya. Nilai yang dihasilkan scrollbar ditampilkan pada edit.
Desainnya :

Programnya setelah dijalankan :

Programnya :
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
edit1.Text:=inttostr(scrollbar1.Position);
form1.Color:=rgb(strtoint(edit1.Text),strtoint(edit2.Text),strtoint(edit3.Text));
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
edit2.Text:=inttostr(scrollbar2.Position);
form1.Color:=rgb(strtoint(edit1.Text),strtoint(edit2.Text),strtoint(edit3.Text));
end;

procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
edit3.Text:=inttostr(scrollbar3.Position);
form1.Color:=rgb(strtoint(edit1.Text),strtoint(edit2.Text),strtoint(edit3.Text));
end;

Contoh 2
Program di bawah ini digunakan untuk menampilkan nilai sebagai bilangan pertama dan kedua pada edit, yang nantinya nilai pada edit yang tampil akan dijumlahkan.
Desainnya :

Programnya setelah dijalankan :

Programnya :
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
edit1.Text:=inttostr(scrollbar1.Position);
edit3.Text:=inttostr(strtoint(edit1.Text)+ strtoint(edit2.Text));
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
edit2.Text:=inttostr(scrollbar2.Position);
edit3.Text:=inttostr(strtoint(edit1.Text)+ strtoint(edit2.Text));
end;

Contoh 3
Program di bawah ini digunakan untuk menampilkan konversi nilai suhu dan nilai yang ditunjukkan pada edit, juga menunjukkan posisi scrollbox pada scrollbar berdasarkan nilai edit tersebut.
Desainnya :

Programnya setelah dijalankan :

Programnya :
procedure TForm1.ScrollBar1Change(Sender: TObject);
var c,r,f,k:real;
a,b,d:string;
begin
edit1.Text:=inttostr(scrollbar1.Position);
c:=scrollbar1.position;
f:=9/5*C+32;
r:=4/5*C;
k:=C+273;
str(f:2:0,a);
str(r:2:0,b);
str(k:2:0,d);

edit2.Text:=a;
scrollbar2.position:=strtoint(edit2.Text);
edit3.Text:=b;
scrollbar4.position:=strtoint(edit3.Text);
edit4.Text:=d;
scrollbar3.position:=strtoint(edit4.Text);
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
var c,r,f,k:real;
a,b,d:string;
begin
edit2.Text:=inttostr(scrollbar2.Position);
f:=scrollbar2.position;
c:=5/9*(f-32);
r:=4/5*C;
k:=C+273;
str(c:2:0,a);
str(r:2:0,b);
str(k:2:0,d);

edit1.Text:=a;
scrollbar1.position:=strtoint(edit1.Text);
edit3.Text:=b;
scrollbar4.position:=strtoint(edit3.Text);
edit4.Text:=d;
scrollbar3.position:=strtoint(edit4.Text);
end;

procedure TForm1.ScrollBar4Change(Sender: TObject);
var c,r,f,k:real;
a,b,d:string;
begin
edit3.Text:=inttostr(scrollbar4.Position);
r:=scrollbar4.position;
c:=5/4*r;
f:=9/5*C+32;
k:=C+273;
str(c:2:0,a);
str(f:2:0,b);
str(k:2:0,d);

edit1.Text:=a;
scrollbar2.position:=strtoint(edit2.Text);
edit2.Text:=b;
scrollbar4.position:=strtoint(edit3.Text);
edit4.Text:=d;
scrollbar3.position:=strtoint(edit4.Text);
end;

procedure TForm1.ScrollBar3Change(Sender: TObject);
var c,r,f,k:real;
a,b,d:string;
begin
edit4.Text:=inttostr(scrollbar3.Position);
k:=scrollbar3.position;
c:=k-273;
f:=9/5*C+32;
r:=4/5*C;
str(c:2:0,a);
str(f:2:0,b);
str(r:2:0,d);

edit1.Text:=a;
scrollbar1.position:=strtoint(edit1.Text);
edit2.Text:=b;
scrollbar2.position:=strtoint(edit2.Text);
edit3.Text:=d;
scrollbar4.position:=strtoint(edit3.Text);
end;