VPF::Непонятно с Timer - Форум программистов

Matematik

Дата 6.2.2007, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Простейший код. Как я думал, должно в мемо постоянно писать строки. Но не работает.
Не понимаю, почему таймер не срабатывает

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.Interval := 0;
  timer1.Enabled := False;
  Timer1Timer(timer1)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   timer1.Enabled := False;
   memo1.Lines.Add(';;');
   timer1.Enabled := True;
end;

Просто интересно почему не работает с нулевым интервалом.

Это сообщение отредактировал(а) Matematik - 6.2.2007, 17:29

gambit

Дата 6.2.2007, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40

Код


timer1.Interval := 0;

Таймер выключается.
попробуй

Код


timer1.Interval := 1;

Sunvas

Дата 6.2.2007, 17:35 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Когда интервал таймера равен 0, это равносильно что таймер отключен. В VB6, например у таймера нет свойства enabled. В делфи же оно сделано для удобства.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Matematik

Дата 6.2.2007, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Ясно. С английским плоховато

Это сообщение отредактировал(а) Matematik - 6.2.2007, 17:37

Rodman

Дата 6.2.2007, 17:37 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

согласен с gambit...

и зачем еще делать

Код


timer1.Enabled := False;

так часто... может с этими энеблами бока?!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

VICTAR

Дата 6.2.2007, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Ответ прост smile

юнит ExtCtrls

Код


procedure TTimer.UpdateTimer;
begin
  KillTimer(FWindowHandle, 1);
  if (FInterval <> 0) and FEnabled and Assigned(FOnTimer) then
    if SetTimer(FWindowHandle, 1, FInterval, nil) = 0 then
      raise EOutOfResources.Create(SNoTimers);
end;

Это сообщение отредактировал(а) VICTAR - 6.2.2007, 17:38

MetalFan

Дата 6.2.2007, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

VICTAR, вот-вот. не быстрее ли и проще глянуть самому в генофонд VCL, чем тратить свое и чужое время на вопросы и ответы на форуме?!

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »