respack, Ничего не понял, что вы сказали, но всё же вот вам
Пример:
[source="iss"]
var
ScrollBar1: TScrollBar;
procedure ScrollBar1Change(Sender: TObject);
begin
WizardForm.Bevel.Top:= ScrollBar1.Position + 10; //Регулируем положение WizardForm.Bevel
//ScrollBar1.Position отвечает за положение ползунка, в другом смысле регулируем позицию через ползунок)
end;
procedure InitializeWizard();
begin
WizardForm.OuterNotebook.Hide;
WizardForm.InnerNotebook.Hide;
ScrollBar1:= TScrollBar.Create(WizardForm);
ScrollBar1.Parent:= WizardForm;
ScrollBar1.Kind:= sbVertical; //sbHorizontal - Горизонтальное положение | sbVertical - Вертикальное положение
ScrollBar1.SetBounds(100, 100, 20, 100);
ScrollBar1.OnChange:= @ScrollBar1Change;
end;[/source]
P.S.: В этом примере мы создаём сам скроллинг (ScrollBar) и регулируем другие компоненты!
Pss.: Если не то, то объясните толком что вам нужно?!...