| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Загоны с таймером
Loginov Dmitry © (2008-07-02 23:50:00)Может кто сталкивался.
Не то, чтобы проблему нельзя было решить, но не понимаю, какого хр. она вообще возникает (либо не возникает)
Есть обработчик таймера. Для упрощения содержимое следующее:
procedure TMyForm.MyTimerTimer(Sender: TObject);
begin
ALog.LogStr('before MyTimerTimer');
MyTimer.Enabled := False;
Sleep(10); // реально здесь выполняется ряд "полезных" действий
ALog.LogStr('after MyTimerTimer');
end;
по умолчанию MyTimer.Enabled=False
MyTimer.Interval=50
В событии FormShow на ряду с прочими "полезными" действиями осуществляется вызов MyTimer.Enabled := True;
Собственно все. В логе при этом вижу следующее:
before MyTimerTimer
after MyTimerTimer
before MyTimerTimer
after MyTimerTimer
before MyTimerTimer
after MyTimerTimer
т.е. таймер вместо одного раза срабатывает 3 раза.
С этим столкнулся на работе. Дома ситуация не воспроизводится.
Компилю на Delphi2007 SP2 с пакетами.
Мое мнение насчет причины данной проблемы такое: В событии FormShow после вызова MyTimer.Enabled := True продолжается инициализация, вешающая основной поток некоторое время, в течение которого в очередь окна таймера успевает поступить 3 сообщения WM_TIMER, и установка MyTimer.Enabled=False не в силах повлиять на это. Однако пытаюсь эмулировать задержку в FormShow дома (Delphi7) - никаких проблем не возникает. Как ни бьюсь, OnTime вызывается только один раз. Завтра разбирусь с этим вопросом, однако может кто-нибудь с этим уже разбирался, где правда?
Loginov Dmitry (2008-07-03 00:20:00) [61]В принципе
The KillTimer function does not remove WM_TIMER messages already posted to the message queue.
Но все равно эмуляция данного "эффекта" на чистом проекте не получается :(
Делаю следующее:
procedure TForm1.FormShow(Sender: TObject);
begin
MyTimer.Enabled := True;
sleep(1000);
end;
Ловится только одно WM_TIMER, хотя за 1 секунду их должно было накопиться 20 штук. Видимо одновременно в очереди сообщений не может быть двух WM_TIMER для одного и того же таймера. А работе наверно именно это и происходит.
Бред какой-то :(
McSimm (2008-07-03 00:07:00) [62]А FormShow точно один раз только вызывается ?
| |
Страницы: 