Delphi Scrollbar İçin Örnek

2tane Edit,2 tanede yatay kaydırma çubuğu ekleyin.Birinci kaydırma çubuğu Edit1 içindeki sayıyı değiştirmek için,ikinci kaydırma çubuğu ise Edit2’nin koordinatlarını değiştirmek için kullanılan programın kodu.

Kodu;

procedure TForm1.FormCreate(Sender: TObject);

begin

ScrollBar1.Min:=0;

ScrollBar1.Max:=100;

ScrollBar2.Min:=ScrollBar2.Left;

ScrollBar2.Max:=ScrollBar2.Left+ScrollBar2.Width-Edit2.Width;

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Edit1.Text:=IntToStr(ScrollBar1.Position) ;

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

Edit2.Left:=ScrollBar2.Position;

end;

end.