Přehled vlastností, metod a událostí objektu:
--------------------------------------------------------------
Ctl3D (RW) Cursor (RW) Enabled (RW)
Height (RW) HelpContext (RW) Hint (RW)
Kind (RW) LargeChange (RW) Left (RW)
Max (RW) Min (RW) Name (R)
ParentCtl3D (RW) ParentShowHint (RW) PopupMenu (RW)
Position (RW) ShowHint (RW) SmallChange (RW)
TabOrder (RW) TabStop (RW) Tag (RW)
Top (RW) Visible (RW) Width (RW)
--------------------------------------------------------------
SetParams
--------------------------------------------------------------
OnChange OnEnter OnExit
OnKeyDown OnKeyPress OnKeyUp
--------------------------------------------------------------
Legenda: * -> pouze z programu, R -> lze číst, W -> lze zadat
Komponenta ScrollBar se používá pro nastavení hodnot v požadovaném intervalu. Změna hodnot se provádí pomocí přetáčecího pruhu zvaného též někdy jako posuvnítko.
Orientaci přetáčecího pruhu určuje vlastnost Kind. Je možné horizontální (standard) nebo vertikální umístění. Minimální a maximální hodnotu nastavíte ve vlastnostech Min, a Max. Velikost posuvu (změny intervalu) zadáte ve vlastnostech LargeChange a SmallChange. Aktuální pozici udává vlastnost Position. Hodnotu minima, maxima a aktuální pozice můžete zadat najednou voláním metody SetParams.
Změnu pozice přetáčecího pruhu indikuje událost OnChange.
Podobné použití má i komponenta UpDown, která se však používá ve spojení s další komponentou pro zadání numerické hodnoty v požadovaném intervalu.
Příklad použití:
Požadujete, aby byl na formuláři zobrazen panel, jehož velikost chcete měnit pomocí objektu
ScrollBar. Počáteční hodnota objektu ScrollBar a současně jeho vlastnost Max je rovna
počáteční velikosti panelu. Panel bude proto možné pouze zmenšovat.
Jazyk KLONDAIK:
procedure TForm.FormCreate(Sender: TObject);
begin
ScrollBar.Max := Panel.Width;
end;
procedure TForm.ScrollBarChange(Sender: TObject);
begin
Panel.Width := ScrollBar.Position;
end;
Jazyk BONANZA:
Sub FormCreate(Sender)
ScrollBar.Max = Panel.Width
End Sub
Sub ScrollBarChange(Sender)
Panel.Width = ScrollBar.Position
End Sub