Не срабатывает OnClose. Правильно ли это ?

← →
half_litre (2004-06-30 15:16) [0]

В MainForm создаю :
var f : TSomeForm;

f:=TSomeForm.Create(Application);
with TfrmSqlForm(f) do begin
....
Show
end;
.........
Если в теле TSomeForm делаю Close,TSomeForm.OnClose
срабатывает. Но если закрываю MainForm (Close) то
TSomeForm.OnClose не срабатывает, только OnDestroy.
Нормально ли это ?
(TSomeForm.FormStyle=fsNormal)

← →
Iconka (2004-06-30 15:30) [1]

Попробуй f:=TSomeForm.Create(Self);

← →
half_litre (2004-06-30 15:34) [2]

Увы, тоже самое

← →
Sandman25 © (2004-06-30 15:35) [3]

OnClose не срабатывает в ряде случаев (при программной перезагрузке, например). OnCloseQuery срабатывает.

← →
Iconka (2004-06-30 15:36) [4]

Тогда забей на это и перенеси тело функции OnClose в OnDestroy.

← →
half_litre (2004-06-30 15:38) [5]

Забить то можно, но хочется понять причину сего.

← →
Iconka (2004-06-30 15:43) [6]

Тогда поставь точки останова и по F8-F7 пройдись по функциям.

← →
half_litre (2004-06-30 15:45) [7]

Дык ф-ий то : в MainForm только Close и ...... и все !!!

← →
Iconka (2004-06-30 15:46) [8]

вот и мотри внутриности TForm.Close и прочии побочные...

← →
half_litre (2004-06-30 16:15) [9]

Нашел в Forms.pas :

procedure TCustomForm.Close;
.........
if Application.MainForm = Self then Application.Terminate
......
а при Application.Terminate, я слышал, OnClose не срабатывает.
Получается я сам должен вести список созданных мною окон и
по MainForm.OnClose сам по списку их закрывать.

Может кто знает менее геморойный способ ?

← →
half_litre (2004-06-30 16:27) [10]

Если кому интересно.
на MainForm.OnClose :

for i:=0 to Screen.CustomFormCount - 1 do
if Screen.CustomForms[i].Handle<>self.Handle
then Screen.CustomForms[i].Close

← →
half_litre (2004-06-30 16:29) [11]

А вообще это МАРАЗМ. Я был сильно удивлен такой бяке в Delphi

Получается я сам должен вести список созданных мною окон и
по MainForm.OnClose сам по списку их закрывать.

А вообще при закрытии главной формы вызывается событие OnDestroy для всех компонентов (и форм в том числе), так, что клоузить все формы необязательно.

← →
half_litre (2004-06-30 16:53) [13]

Мне это важно было :
В TSomeForm.OnClose я делал FreeLibrary(someDll)
Если это же делать по Destroy, то по закрытию приложения
RunTime Error

А если делать FreeLibrary(someDll) в OnClose главной формы?

← →
half_litre (2004-06-30 17:03) [15]

Главная о someDll не в курсах :))

И вот интересно почему на OnClose FreeLibrary - OK
а на OnDestroy RunTime Error

Главная о someDll не в курсах :))

Укажи в юзесах модуль той формы, где про someDll пишеться.

И вот интересно почему на OnClose FreeLibrary - OK
а на OnDestroy RunTime Error

потому-что дестрой дочерних форм и компонентов происходит раньше, чем наступает событие дестрой главной формы

Не срабатывает OnClose. Правильно ли это ? Найти похожие ветки