HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущая Предыдущее сообщение   Следующее сообщение Следующая

  #11  
Старый 26.06.2009, 17:13
Vish
Banned
Регистрация: 12.06.2009
Сообщений: 8
С нами: 8902451

Репутация: 1
По умолчанию
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
 Timer1.Enabled:=true;
Timer1.Interval :=60;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := ProgressBar1.Position + 1;
end;
1)подскажите как сделать, чтобы по оканчанию загрузки TProgressBar выполнялась команда MessageBox ?

2)Есть Label, Button. Как сделать, чтобы при нажатии на батон, происходила проверка текста в лейбле? ну если в лейбле например введен определённый текст, который я ввёл в коде проги, то при нажатии на батон, вылетит сообщение "Верно", а если текст иной, то вылетит "Не верно" ?
Последний раз редактировалось Vish; 26.06.2009 в 17:42..
 
Ответить с цитированием
 



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2569 10.05.2026 13:27
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.