Перемещение ползунка при нажатии кнопки

DSBM

Привет, форумчане! Дано задание: >На форме располагаются компоненты: метка Label, четыре кнопки с номерами от 1 до 4, ScrollBar с разметкой от 1 до 4 и кнопка «Закрыть». При нажатии мышью какой-либо кнопки она становится невидимой, но появляется ранее скрытая кнопка. Номер невидимой кнопки появляется на метке. Синхронно перемещается ползунок линейки ScrollBar. Перемещение ползунка мышью приводит к вышеописанным манипуляциям с кнопками. Не могу знать как делается вот этот момент: >При нажатии мышью какой-либо кнопки синхронно перемещается ползунок линейки ScrollBar. Помогите решить проблему? Исходный код ниже:
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    ScrollBar1: TScrollBar;
    BitBtn1: TBitBtn;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Visible := False;
    Button2.Visible := True;
      Button3.Visible := True;
        Button4.Visible := True;
  Label1.Caption:='1';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Visible := True;
    Button2.Visible := False;
      Button3.Visible := True;
        Button4.Visible := True;
  Label1.Caption:='2';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Button1.Visible := True;
    Button2.Visible := True;
      Button3.Visible := False;
        Button4.Visible := True;
  Label1.Caption:='3';
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  Button1.Visible := True;
    Button2.Visible := True;
      Button3.Visible := True;
        Button4.Visible := False;
  Label1.Caption:='4';
 
end;
 
end.
Заранее спасибо!
1 ответ

DSBM

перемещается ползунок линейки ScrollBar
ScrollBar1.Position:= например tag - кнопки; Label1.Caption:= inttostr(ScrollBar1.Position);