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

Delphi функция timer
  #1  
Старый 14.05.2010, 15:28
Ferrari california
Познающий
Регистрация: 17.03.2010
Сообщений: 51
С нами: 8501829

Репутация: 37
По умолчанию Delphi функция timer
Вопрос ,как реализовать что при нажатие на клавишу button акивириволся прогрес бар и когда он дошел до конца открылася форм 2 с мну +
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 14.05.2010, 15:43
Vlad3d
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
С нами: 9637731

Репутация: 106
По умолчанию
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
if ProgressBar1.Position=ProgressBar1.max then
form2.Show;
end;

end.


как нибудь так
 
Ответить с цитированием

  #3  
Старый 14.05.2010, 15:44
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами: 10097606

Репутация: 3349


По умолчанию
примерно так: в онклике буттона пропиши
Код:
ProgressBar1.max := 100;
ProgressBar1.Position := 100;
Timer1.enable := true;
настрой таймер на нужную частоту и пропиши код
в онтаймер таймера
Код:
 ProgressBar1.Position := ProgressBar1.Position + 1;
 if ProgressBar1.Position = ProgressBar1.max then
 begin
   Timer1.Enable := false;
   Form2.Show();
 end;
 
Ответить с цитированием

  #4  
Старый 14.05.2010, 15:53
Ferrari california
Познающий
Регистрация: 17.03.2010
Сообщений: 51
С нами: 8501829

Репутация: 37
По умолчанию
Цитата:
Сообщение от slesh  
примерно так: в онклике буттона пропиши
Код:
ProgressBar1.max := 100;
ProgressBar1.Position := 100;
Timer1.enable := true;
настрой таймер на нужную частоту и пропиши код
в онтаймер таймера
Код:
 ProgressBar1.Position := ProgressBar1.Position + 1;
 if ProgressBar1.Position = ProgressBar1.max then
 begin
   Timer1.Enable := false;
   Form2.Show();
 end;
огромное спасибо) ток одно но нет своиства enable есть
enabled
 
Ответить с цитированием

  #5  
Старый 14.05.2010, 18:00
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами: 10097606

Репутация: 3349


По умолчанию
ну я это и имел в виду когда писал код. Ачат еще пока не научился проверять введенный в окно код на правильность.
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Books PSalm69 Избранное 273 13.02.2016 01:24
Бот для техномагии Rastamanka Реверсинг 13 08.06.2010 06:06
Delphi компонент Timer Sunstrider С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 2 24.04.2010 20:16
Литература Delphi Sams С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 2 19.03.2010 19:46
Virus.Win32.Induc.a или "Снова записки новичка" _=(mac)=_ Защита ОС: вирусы, антивирусы, файрволы. 5 24.08.2009 23:34



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


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




ANTICHAT ™ © 2001- Antichat Kft.