ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущая Предыдущее сообщение   Следующее сообщение Следующая

  #11  
Старый 14.09.2007, 17:15
Аватар для Killerkod
Killerkod
Участник форума
Регистрация: 01.08.2007
Сообщений: 178
Провел на форуме:
486104

Репутация: 239
По умолчанию
Я просто другой код вставил
Код:
ProgressBar1.Position := ProgressBar1.Position + 1;
Может из-за этого надо тот удалить...
Да и еще, если добавить тот код, то ProgressBar будет заполняться до бесконечности! Он заполнится, потом с начала и т.д....

Короче вместо этого кода:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
if ProgressBar1.Position = ProgressBar1.Max then Form2.Show;
end;
Я вставил этот:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ProgressBar1.Position := ProgressBar1.Position + 1;
   if ProgressBar1.Position = 100 then Form4.Show;
end;
И теперь как только заполняется ProgressBar вылазиет другое окно. А то в первом случае не вылазило((
Последний раз редактировалось Killerkod; 14.09.2007 в 17:43..
 
Ответить с цитированием
 



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/WPAN/WLAN 2564 06.04.2026 23:31
[ *NIX ] Задай вопрос - получи ответ. Xszz *nix 1547 15.06.2010 15:41
[jQuery] - Задай вопрос, получи ответ Isis PHP, PERL, MySQL, JavaScript 62 25.12.2009 03:25
ЕсТь ВоПрос Guma Чаты 4 26.10.2005 21:48



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


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




ANTICHAT.XYZ