MsgWaitForMultipleObjects

[P@SH@]

Есть следующий код:

PHP код:

while not fQuit do begin
dwResult := MsgWaitForMultipleObjectsEx(0,nil,INFINITE,QS_ALLINPUT,0);
case dwResult of
WAIT_OBJECT_0:
while PeekMessage(aMsg, 0, 0, 0, PM_REMOVE) do 
if aMsg.message = WM_QUIT then
fQuit := True
else begin
TranslateMessage(aMsg);
DispatchMessage(aMsg);
end;
end; // case
end; // while not fQuit 


Если код выполняется в главной форме, то всё в порядке.
А если форма создаётся из потока:

PHP код:

Form2 := TForm2.Create(nil);
Form2.ShowModal;
Form2.Free; 


то где-то перехватывается сообщение WM_QUIT (я предполагаю, что его перехватывает Application) и форма не закрывается.

Может кто объяснит, что здесь происходит? и как с этим бороться?

[rpy3uH]

чего-то я не понял?
если приложение с формами, то зачем вообще приведённый код. У объекта Application есть свой собственный цикл обработки сообщений.
по конкретнее пожалуйста

[P@SH@]

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

[rpy3uH]

Сообщение от P@SH@

(я предполагаю, что его перехватывает Application) и форма не закрывается.

возможно так и есть

Сообщение от P@SH@

Может кто объяснит, что здесь происходит? и как с этим бороться?

мистика какая-то....можно обрабатывать сообщение WM_CLOSE

[P@SH@]

WM_QUIT, WM_DESTROY, WM_CLOSE - всё едино. Вообще-то что хотел, сделал с помощью пользовательского таймера. Просто интересно что к чему.

[rpy3uH]

WM_QUIT, WM_DESTROY, WM_CLOSE - разные вещи

[P@SH@]

Я хотел сказать, что ни одно из этих сообщений в очереди сообщений не появляется, пока не окончен цикл обработки MsgWaitForMultipleObjectsEx.

[Tokolist]

Сообщение от P@SH@

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

Может я чегото недопонимаю , но почему бы вам не воспользоваться TThread (CreateThread)

[P@SH@]

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

Может я чегото недопонимаю , но почему бы вам не воспользоваться TThread (CreateThread)

Дело в том, что последовательность операций с прибором может изменяться в зависимости от конкретных условий. Отдельная операция (например, опрос информации прибора) как раз и выполняется в отдельном потоке. Для синхронизации работы таких потоков с циклограммой хотел использовать MsgWaitForMultipleObjectsEx. Если данный код выполняется в главной форме приложения, то проблем никаких нет. Но если форма не является главной, то не удаётся её закрыть до тех пор пока не сработает ожидаемое событие либо таймаут.