Главная страница
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.008 c
1-26089
Lokk
2002-04-26 16:04
2002.05.09
Процедура


3-26031
Socrat
2002-04-15 05:14
2002.05.09
Как подключиться к Access у зная только имя файла


3-25994
SergeyDon
2002-04-15 14:35
2002.05.09
InterBase хранимые процедуры.


6-26208
HEugene
2002-02-26 10:33
2002.05.09
Sniffer


1-26078
Невидимка
2002-04-26 13:03
2002.05.09
Вывод диалога и сохранение файла...