Таймеры и формы. Нужна помощь.

[dbGo]

Добрый вечер.
Есть главная форма 1, на которой висит таймер. Таймер срабатывает раз в 2 минуты.
На главной форме есть меню, одна из кнопок меню вызывает форму 2 модально.
Дело в том что когда вызвана вторая форма и срабатывает таймер на основной форме, то вторая форма не закрывается пока не отработает таймер.
В таймере крутится долгий цикл.
Вторая форма закрывается методом - modalResult:=MrCLose;

[Stilet]

Так, а если немодально вызывать?
И кстати в чем смысл всего этого? Какая задача?

[dbGo]

Надо модально, дело в том что программа довольно большая с большим количеством форм. На главной форме таймер который делает синхронизацию из БД, но нужно чтобы таймер делал синхронизацию и формы закрывались без зависаний.

В таймере цикл бежит по табицам загружает данный через IdHTTP.GET
IdHTTP в купе с антифризом.
В цикле Application.ProcessMessages, т.е. пока молотит цикл в таймере на второй форме все кликается-работает. НО когда пытаюсь закрыть форму кнопка не реагирует.
Цель такая чтобы формы закрывались при работе таймера.

[northener]

пока молотит цикл в таймере на второй форме все кликается-работает. НО когда пытаюсь закрыть форму кнопка не реагирует.

Что-то странное.

[StriderX]

Сообщение от dbGo

Добрый вечер.
Есть главная форма 1, на которой висит таймер. Таймер срабатывает раз в 2 минуты.
На главной форме есть меню, одна из кнопок меню вызывает форму 2 модально.
Дело в том что когда вызвана вторая форма и срабатывает таймер на основной форме, то вторая форма не закрывается пока не отработает таймер.
В таймере крутится долгий цикл.
Вторая форма закрывается методом - modalResult:=MrCLose;

Ммм... с VCL вообще никак не дружу, но помню - модальные формы + таймер + ProcessMessages = неведомая магия (пачка сайд эффектов, которые неочевидны, если обладать околонулевыми познаниями VCL, например, как у меня).
А дело в том, что ShowModal "удерживает" строчку на которой находится, дальнейший код не будет выполнен пока окно не умрёт. Это можно сделать только надстроив над основным циклом приложения свой собственный (внутри ShowModal немедленно обнаружится искомый repeat until). Это как минимум гарантирует блокирование самого таймера, если окно будет открыто вовремя исполнения Application.ProcessMessages.
Соответственно и рекомендация от неуча типа меня будет одна: перепроектировать проект на многопоточный вариант, выбросить таймер в свой поток, чтобы он не мешал жить остальной логике.

[northener]

Сообщение от StriderX

Это как минимум гарантирует блокирование самого таймера.

С чего бы вдруг?

[StriderX]

Сообщение от northener

С чего бы вдруг?

Каким бы образом не работал VCL, вам желательно (при правильном проектировании) получить гарантии, что внутри таймера вы будете находиться один раз и не допустите ни параллельного вызова, ни вложенного по стеку. В самом примитивном случае на входе таймера будет стоять взведённый булев флаг, а спустить его не даст блокировка ShowModal, которая запустит свой цикл сообщений.
PS: для меня абсолютная загадка как именно работает компонента таймера - кто его вызывает, на что он там подписан и т.п. Я могу жестоко заблуждаться =-)

[northener]

2 StriderX
Тут явно ТС о чём-то умалчивает или чего-то недоговаривает.
Верю что просто по незнанию и неверной трактовке своего кода.

для меня абсолютная загадка как именно работает компонента таймера

Не стоит так себя принижать.

[StriderX]

Сообщение от northener

2 StriderX
Тут явно ТС о чём-то умалчивает или чего-то недоговаривает.
Верю что просто по незнанию и неверной трактовке своего кода.

для меня абсолютная загадка как именно работает компонента таймера

Не стоит так себя принижать.

Да я не принижаю, то что мне надо было на практике - это или системы реального времени и rdtsc; или же системы с фиксированной частотой процессов\таймера, где мне хватает GetTickCount. Я действительно никогда не задавался вопросом - как работает дельфийский таймер и кто обязан гарантировать изоляцию его вызовов друг от друга. В зависимости от схемы работы таймера реально возможны любые сайд эффекты, но в то же время я не могу в голове обрисовать проблему автора - у меня нет примера как так сломать специально. Только предложение сделать приложение многопоточным =)

[northener]

Сообщение от StriderX

Да я не принижаю, то что мне надо было на практике - это или системы реального времени и rdtsc; или же системы с фиксированной частотой процессов\таймера, где мне хватает GetTickCount. Я действительно никогда не задавался вопросом - как работает дельфийский таймер и кто обязан гарантировать изоляцию его вызовов друг от друга. В зависимости от схемы работы таймера реально возможны любые сайд эффекты, но в то же время я не могу в голове обрисовать проблему автора - у меня нет примера как так сломать специально. Только предложение сделать приложение многопоточным =)

Нет никакого "Дельфийского" таймера. Есть только стандартный виндовый SetTimer с посылкой сообщения WM_TIMER окну/дельфийской форме, на которую кинули компонент TTimer.