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