Как поменять текст на кнопке при нажатии на эту же кнопку?

← →
Чужой (2002-04-25 15:44) [0]

У меня начальный текст на кнопки "Тест", при нажатии на нее, я меняю текст на "Стоп", а как при повторном нажатии на кнопку поменять текст снова на "Тест".

procedure TForm1.Button1Click(Sender: TObject); begin Button1.Caption := "Стоп"; //Button1.Caption := "Тест"; end;

← →
MBo (2002-04-25 15:46) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = "Стоп" then
Button1.Caption := "Тест"
else
Button1.Caption := "Стоп";
end;

или использовать tag

← →
Чужой (2002-04-25 15:50) [2]

Как использовать tag ?

← →
MBo (2002-04-25 15:55) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Tag =0 then begin
Button1.Caption := "Тест";
Button1.Tag:=1;
end else begin
Button1.Caption := "Стоп";
Button1.Tag:=0;
end;
end;
в этом простом случае бессмысленно, но в других может пригодиться

Как поменять текст на кнопке при нажатии на эту же кнопку? Найти похожие ветки