ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
14.05.2010, 15:28
|
|
Познающий
Регистрация: 17.03.2010
Сообщений: 51
Провел на форуме:
607904
Репутация:
37
|
|
Delphi функция timer
Вопрос ,как реализовать что при нажатие на клавишу button акивириволся прогрес бар и когда он дошел до конца открылася форм 2 с мну +
|
|
|
14.05.2010, 15:43
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
Провел на форуме:
2441184
Репутация:
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.
как нибудь так
|
|
|
|
14.05.2010, 15:44
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
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;
|
|
|
|
14.05.2010, 15:53
|
|
Познающий
Регистрация: 17.03.2010
Сообщений: 51
Провел на форуме:
607904
Репутация:
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
|
|
|
|
14.05.2010, 18:00
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
ну я это и имел в виду когда писал код. Ачат еще пока не научился проверять введенный в окно код на правильность.
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Бот для техномагии
|
Rastamanka |
Реверсинг |
13 |
08.06.2010 06:06 |
|
Delphi компонент Timer
|
Sunstrider |
С/С++, C#, Delphi, .NET, Asm |
2 |
24.04.2010 20:16 |
|
Литература Delphi
|
Sams |
С/С++, C#, Delphi, .NET, Asm |
2 |
19.03.2010 19:46 |
|
Books
|
PSalm69 |
Избранное |
248 |
27.10.2009 04:52 |
|
Virus.Win32.Induc.a или "Снова записки новичка"
|
_=(mac)=_ |
Защита ОС: вирусы, антивирусы, файрволы. |
5 |
24.08.2009 23:34 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
