Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.02.2009, 20:22   #1
IVANSour
Пользователь
 
Аватар для IVANSour
 
Регистрация: 26.12.2008
Сообщений: 55
По умолчанию Выставить таймер.

Подскажите как выставить таймер на 30 сек.
И после выполнить действие.
SOUR
IVANSour вне форума Ответить с цитированием
Старый 01.02.2009, 20:33   #2
5naip
Форумчанин
 
Аватар для 5naip
 
Регистрация: 05.10.2007
Сообщений: 536
По умолчанию

Timer1.Interval должно быть 1000. Оно по умолчанию так.
Код:
var
  i:integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
if i = 30
  then
    begin
      Timer1.Enabled:=false;
      {Код вашего действия}
    end;
end;
rocklistener...
5naip вне форума Ответить с цитированием
Старый 01.02.2009, 20:41   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Таймер выставляется миллисекундами.
30 секунд - это интервал 30 000.
Цитата:
Сообщение от 5naip Посмотреть сообщение
Timer1.Interval должно быть 1000. Оно по умолчанию так.
Код:
var
  i:integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
if i = 30
  then
    begin
      Timer1.Enabled:=false;
      {Код вашего действия}
    end;
end;
Ваше "if i = 30", не привязанное даже к хвосту коровы - не несет никакой смысловой нагрузки...
mihali4 вне форума Ответить с цитированием
Старый 01.02.2009, 20:59   #4
5naip
Форумчанин
 
Аватар для 5naip
 
Регистрация: 05.10.2007
Сообщений: 536
По умолчанию

функция inc() вам знакома?
30 с = 30 000 мс,тут вы, без сомнения, правы.
Как раз для этого я и указал,что "Timer1.Interval должно быть 1000". А это ровно одна секунда. Умножаем на 30 и получаем 30 секунд.
rocklistener...

Последний раз редактировалось 5naip; 01.02.2009 в 21:04.
5naip вне форума Ответить с цитированием
Старый 01.02.2009, 21:00   #5
_Engine_
Форумчанин
 
Регистрация: 29.06.2008
Сообщений: 603
По умолчанию

Timer.Interval := 30000;
Ферштейн?
_Engine_ вне форума Ответить с цитированием
Старый 01.02.2009, 21:25   #6
5naip
Форумчанин
 
Аватар для 5naip
 
Регистрация: 05.10.2007
Сообщений: 536
По умолчанию

а я на всяк...вдруг ему нужно каждую сек что-то выполнять в программе...
да,ладно...проморгал, проморгал...
rocklistener...
5naip вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выставить в DataType Михаил Юрьевич БД в Delphi 2 28.12.2008 17:40
выставить расписание для архивации и отправки на e-mail cyberguru Операционные системы общие вопросы 4 28.08.2008 11:32
Таймер Михаил Юрьевич Общие вопросы Delphi 1 16.07.2008 08:46
ТАЙМЕР ratibor32 Общие вопросы C/C++ 1 26.12.2007 19:02
таймер Романнн Общие вопросы Delphi 19 19.12.2007 15:33