Постепенное появление объектов

[AdvanceQ]

Здравствуйте, еще раз


Собственно есть 5 label и Button, при нажатие на Button должен появится Label1 и установить его заголовок в 'Строка1', еще раз нажав на Button появится Label2 и заголовок 'Строка2', далее Label3 и т.д

Делаю так:

if label1.visible = false then
label1.visible := true;
label1.caption := 'Stroka1'
else

if label2.visible = false then
label2.visible := true;
label2.caption := 'Stroka2'

и т.д

но Появляется либо Label5, либо ничего.

[Marsel737]

var
  i: integer;

procedure TForm1.FormCreate;
begin
  i:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if i=1 then
  begin
    Label1.Caption:='Строка1';
    Inc(i);
    Exit;
  end;
  if i=2 then
  begin
    Label2.Caption:='Строка2';
    Inc(i);
    Exit;
  end;
  ...
end;

или так, если я ничё не путаю канешна, потому что всегда что-то подобное делаю как напримере выше, но всё же:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Tag=-1 then
  begin
    Label1.Caption:='Строка1';
    Inc(Button1.Tag); // Button1.Tag:=Button1.Tag+1;
  end;

  if Button1.Tag=0 then
  begin
    Label2.Caption:='Строка2';
    Inc(Button1.Tag); // Button1.Tag:=Button1.Tag+1;
  end;
end;

[mihali4]

Всего-то навсего:

if label1.visible = false then
begin
label1.visible := true;
label1.caption := 'Stroka1'
end else

if label2.visible = false then
begin
label2.visible := true;
label2.caption := 'Stroka2'
end else
...
и т.д.