Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.09;
Скачать: CL | DM;

Вниз

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

 
Чужой   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-26122
Mic_2k
2002-04-24 17:11
2002.05.09
Как можно прорисовать табличку в Excel из Delphi


4-26292
DSR
2002-03-06 13:21
2002.05.09
Как написать DLL...


3-25988
Reals
2002-04-15 14:27
2002.05.09
Как можно сделать резервную копию (BackUp) базы данных


1-26079
Bocvfy
2002-04-26 12:56
2002.05.09
ICQSMS.DLL


1-26149
Beast
2002-04-24 16:30
2002.05.09
Фокус окна