unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScrollListbox; type TForm1 = class(TForm) ScrollListbox1: TScrollListbox; Button1: TButton; up: TButton; down: TButton; Button2: TButton; Memo1: TMemo; scrolltoend: TButton; procedure Button1Click(Sender: TObject); procedure upClick(Sender: TObject); procedure downClick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ScrollListbox1Click(Sender: TObject); procedure ScrollListbox1Reachedend; procedure scrolltoendClick(Sender: TObject); procedure ScrollListbox1Reachedtop; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var n : integer; begin scrolllistbox1.clear; for n:=0 to 25 do begin scrolllistbox1.items.add('smurf'+inttostr(n)); end; scrolllistbox1.refresh; end; procedure TForm1.upClick(Sender: TObject); begin scrolllistbox1.scrollup; end; procedure TForm1.downClick(Sender: TObject); begin scrolllistbox1.scrolldown; end; procedure TForm1.Button2Click(Sender: TObject); begin memo1.lines.add(inttostr(scrolllistbox1.itemindex)); end; procedure TForm1.ScrollListbox1Click(Sender: TObject); begin beep; end; procedure TForm1.ScrollListbox1Reachedend; begin beep; end; procedure TForm1.scrolltoendClick(Sender: TObject); begin scrolllistbox1.scrolltoend; end; procedure TForm1.ScrollListbox1Reachedtop; begin beep; end; end.