событие OnClose не выполняется

← →
Валерий (2003-01-21 06:44) [0]

Почему не происходит событие OnClose главной формы
программы-сервера при ее закрытии
в связи с закрытием программы-клиента в ActiveX-Приложениях?
Заранее всем благодарен!

← →
Валерий (2003-01-21 06:53) [1]

Уточнение!
Событие не происходит когда программа автоматически
закрывается после завершения работы программы-клиента!

← →
Identifikator Borna (2003-01-21 09:19) [2]

>> Валерий (21.01.03 06:53)
А как вы обрабатываете событие OnClose ?

← →
Shodan (2003-01-21 09:29) [3]

может нужно трабатывать событие OnCloseQuery

← →
Валерий (2003-01-21 10:44) [4]

Identifikator Borna
оно просто не происходит
в инспекторе создаю обработчик на событие OnClose у главной формы
Shodan
в этом случае оно тоже не происходит

← →
Reindeer Moss Eater (2003-01-21 10:49) [5]

OnClose генерится при вызове метода Close;
Нет вызова - нет события

← →
Валерий (2003-01-21 10:56) [6]

По событию OnClose сохраняются настройки программы.
В случае закрытия пользователем программы все события
происходят,но если закрывается последняя
программа-клиент,то в этом случае автоматически закрывается
программа-сервер и не вызывается событие OnClose.
происходят события onHide и onDestroy.

← →
Reindeer Moss Eater (2003-01-21 10:57) [7]

А где вопрос?

← →
Валерий (2003-01-21 11:02) [8]

Reindeer Moss Eater (21.01.03 10:57)
А где вопрос?

тогда вопрос почему не происходит Close?

← →
Reindeer Moss Eater (2003-01-21 11:03) [9]

Reindeer Moss Eater (21.01.03 10:49)

← →
Валерий (2003-01-21 11:08) [10]

Reindeer Moss Eater
Не понял ваш юмор!
Вопрос открытый!

← →
Reindeer Moss Eater (2003-01-21 11:18) [11]

Событие OnClose генерится при вызове метода Close;
Нет вызова метода (Close) - не будет и события (OnClose)

← →
Karbazol (2003-01-21 11:41) [12]

Хорошо. Событие OnClose генерится в методе Close.
Если метод Close не вызывается, то возникает закономерный вопрос.
Что происходит при закрытии ActiveX сервера типа CLSCTX_LOCAL_SERVER? Потому что отследить стек вызовов средствами Delphi не удалось.
Или, возможно, кто-то знает в каком направлении нужно копать.

← →
Karbazol (2003-01-21 13:58) [13]

В общем, если кому-то интересно.
В случае ActiveX сервера типа CLSCTX_LOCAL_SERVER событие OnClose главной формы не вызывается из-за того, что при уничтожении последнего объекта в очередь сообщений основного треда помещается WM_QUIT, а это сообщение до форм не доходит ;-) и, следовательно, никакие события не генерируются...

Решение:
....... type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure LastObjectRelease(var Shutdown: boolean); end; implementation uses ..., ComServ,... ...... procedure TForm1.FormCreate(Sender: TObject); begin ComServer.OnLastRelease := LastObjectRelease; end; ...... procedure TForm1.LastObjectRelease(var Shutdown: boolean); begin if Shutdown then Close; end;

OnClose частенько не вызывается - например при завершении работы windows. Проще деструктор переписать или OnDestroy.

← →
Валерий (2003-01-22 04:16) [15]

Всем Спасибо!
to Karbazol
Большое спасибо!
Буду копать!

событие OnClose не выполняется Найти похожие ветки