При нажатии кнопка становится невидимой. Delphi.

[DSBM]

Привет, форумчане!
Дано задание:
>На форме располагаются компоненты: метка Label, четыре кнопки с номерами от 1 до 4, ScrollBar с разметкой от 1 до 4 и кнопка «Закрыть». При нажатии мышью какой-либо кнопки она становится невидимой, но появляется ранее скрытая кнопка. Номер невидимой кнопки появляется на метке. Синхронно перемещается ползунок линейки 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);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Sender = Button1) then
  Form1.Caption:=Button1.Caption;
  Label1.Caption:='1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if (Sender = Button2) then
  Form1.Caption:=Button2.Caption;
  Label1.Caption:='2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if (Sender = Button3) then
  Form1.Caption:=Button3.Caption;
  Label1.Caption:='3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if (Sender = Button4) then
  Form1.Caption:=Button4.Caption;
  Label1.Caption:='4';
end;

end.

Заранее спасибо!

[DSBM]

Сообщение от DSBM

>При нажатии мышью какой-либо кнопки она становится невидимой, но появляется ранее скрытая кнопка.

Скрыл кнопку через

Button1.Visible := False;

, но тут, внезапно, появился вопрос.. Как возвращать ранее скрытую?

[VIK_aka_TOR]

Button2.Visible := True;

если кнопок не много, то можно и вручную прописать появление всех остальных... или же пройтись по форме поиском компонентов и искать выключенную/спрятанную кнопку

и еще такой вопрос, если вы конкретно вешаете событие на кнопку, то зачем строки вида:

if (Sender = Button4) then

у вас они бессмысленны...

[type_Oleg]

Сообщение от DSBM

.. Как возвращать ранее скрытую?

В смысле делать видимой ранее невидимую?
А вы делайте видимыми все, кроме той, что делается невидимой.

Или еще способ: пишете процедуру, делающую видимыми все кнопки. И при нажатии любой кнопки - сначала вызывается эта процедуры, а потом делается невидимой одна эта кнопка.

[BDA]

Вешаете на все кнопки один обработчик, в котором сначала делаете видимыми все кнопки, а дальше пишете в нем:

Label1.Caption := (Sender as TButton).Caption;
(Sender as TButton).Visible := false;