На каждом клике действие!

[Rebel123]

Раньше работал и делал так, уже подзабыл вот и прошу подсказки!
Вообщем надо так: На каждом Клике (без разницы чего) что SpeedButton'ы появлялись, То есть с начало у них Visible=False, а после клика уже True.

Помню что можно в таком случае объявить переменную типа Integer. И на каждом клике уже добавлять по +1.

[uberchel]

Вот держи, благодарить не забываем )))

var
  Form1: TForm1;
  Step: Integer;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Step:= 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Step of

  1: begin
     Step := Step + 1;
     Button2.Visible:= True;
  end;

  2: begin
     Step := Step + 1;
     Button3.Visible:= True;
  end;
end;
end;

[Rebel123]

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

Вот держи, благодарить не забываем )))

var
  Form1: TForm1;
  Step: Integer;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Step:= 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Step of

  1: begin
     Step := Step + 1;
     Button2.Visible:= True;
  end;

  2: begin
     Step := Step + 1;
     Button3.Visible:= True;
  end;
end;
end;

Благодарю! Uberchel Вам +