Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.44 MB
Время: 0.007 c
4-26311
Asker
2002-03-08 20:29
2002.05.09
Спячка/Перезагрузка WindowsXP, Win2000


4-26291
Shiza
2002-02-28 18:52
2002.05.09
Функция LockFile


14-26274
drpass
2002-04-01 05:08
2002.05.09
Новые возможности Delphi6


1-26142
Новенький в Делфи
2002-04-24 02:49
2002.05.09
Проблемы с чтением файлов


1-26174
onix
2002-04-25 10:39
2002.05.09
Убрать строку заголовка.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский