Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
ВнизКак поменять текст на кнопке при нажатии на эту же кнопку? Найти похожие ветки
← →
Чужой (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;
в этом простом случае бессмысленно, но в других может пригодиться
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c