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

[StriderX]

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

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

Тада всё просто %)
Таймер крутится, делает своё чорное дело. Изредка дёргает за косичку некий ProcessMessages. Пользователь тыкает по кнопке на модальной форме - процесмесадж ловит его и лепит modalResult = mrClose. Но кто его проверяет? Проверяет его "надстроеный" цикл сообщений, а не родной, который проворачивается через ProcessMessages - то есть пока таймер не доиграет и не вернёт управление модальному циклу сообщений, никто и не будет смотреть на этот модалрезалт =-)

[min@y™]

Мож попробовать ModalForm.Perform(WM_CLOSE,...); ?
Эт я так, навскидку, если чо.

[dbGo]

Не работает.
Вообще никак, форма2 никак не закрывается, пока таймер на форме1 работает.

[min@y™]

Не работает.
Вообще никак, форма2 никак не закрывается, пока таймер на форме1 работает.

Это ты к кому щас обращаешься?
Совет: переноси код обработчика таймера в побочный тред.
Вопрос: а таймер точно нужен? Может от него отказаться?

[Аватар]

modalResult = mrClose

А если добавить в основной форме некое булевое public свойство. В модальной форме по закрытию в это свойство True. В цикле таймера кроме ProcessMessages анализировать и это свойство на предмет True и выход из цикла и таймера при необходимости

[min@y™]

А если

А давайте сначала аффтар покажет нам код обработчика таймера!
Чую, там аццкий ад...

[dbGo]

Про флаг, я думал и даже попробовал.
Поток я создал И.. ничего, польза от него в том что цикл в таймере докручивается до конца, раньше при вызове модальности, если таймер работал до открытия формы2, цикл в таймере стопорился.

Проблема следующая!
Если на форме1 таймер сработал И при откртии формы2, все нормально форма закрывается.
Если на форме1 таймер не сработал и открыли форму, а таймер сработал уже после открытия формы2 ТО пока цикл не добежит в таймере форма незакроется.

Тут код, упрощенный код по отношению к программе, смысл такой же, в таймере цикл делает добро.

var
  i:Integer;
begin
      for I := 0 to 10000 do
        begin
          addlog(IntToStr(i)+TimeToStr(Now()));
          Application.ProcessMessages;
        end;
end;

[min@y™]

Поток я создал И.. ничего

Покажи код!

[dbGo]

Да вот код потока.

function start_sync_module:Boolean;
begin
  try
    thread_s:=TSThread.Create(true);
    thread_s.FreeOnTerminate:=false;
    thread_s.Priority:=tpNormal;
    thread_s.do_:=true;
    thread_s.Resume;
    while not thread_s.Finished do
        Application.ProcessMessages;
  finally
    FreeAndNil(thread_s);
  end;
end;

procedure TSThread.Execute;
var
  i:integer;
begin
    try
      inherited;
      Critical_Section_main:=TCriticalSection.Create;
      Critical_Section_main.Enter;
      for I := 0 to 10000 do
        begin
          addlog(IntToStr(i)+TimeToStr(Now()));
          Application.ProcessMessages;
        end;
      Critical_Section_main.Leave;
      Critical_Section_main.Free;
    except on e:Exception do
       show_msg_form(E.Message)
    end;
end;

procedure TDM_SYNC.Timer1Timer(Sender: TObject);
var
  i:Integer;
begin
   if not TIMER_CHECK then
    begin
      TIMER_CHECK:=true;
      start_sync_module;
      TIMER_CHECK:=false;
    end;
end;

Вопрос не в потоке, и без него нормально. Вопрос как закрыть форму, при запущенном цикле в таймере!




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[min@y™]

Вопрос как закрыть форму, при запущенном цикле в таймере!

Да никак, пока исполнение не выйдет за пределы обработчика таймера.
Убери везде Application.ProcessMessages(). И тред создавай один раз при запуске программы, а не по таймеру. Для синхронизации используй только Synchronize().