Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не срабатывает OnClose. Правильно ли это ? [D3, Win95/98]

half_litre © (2004-06-30 15:16:00)
В 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)

MacroDenS (2004-06-30 17:08:00) [1]

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

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

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

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

half_litre (2004-06-30 17:03:00) [2]
Главная о someDll не в курсах :))

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

MacroDenS (2004-06-30 16:58:00) [3]
А если делать FreeLibrary(someDll) в OnClose главной формы?

half_litre (2004-06-30 16:53:00) [4]
Мне это важно было :
В TSomeForm.OnClose я делал FreeLibrary(someDll)
Если это же делать по Destroy, то по закрытию приложения
RunTime Error

MacroDenS (2004-06-30 16:45:00) [5]

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

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

half_litre (2004-06-30 16:29:00) [6]
А вообще это МАРАЗМ. Я был сильно удивлен такой бяке в Delphi

half_litre (2004-06-30 16:27:00) [7]
Если кому интересно.
на 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:15:00) [8]
Нашел в Forms.pas :

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

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

Iconka (2004-06-30 15:46:00) [9]
вот и мотри внутриности TForm.Close и прочии побочные...

half_litre (2004-06-30 15:45:00) [10]
Дык ф-ий то : в MainForm только Close и ...... и все !!!

Iconka (2004-06-30 15:43:00) [11]
Тогда поставь точки останова и по F8-F7 пройдись по функциям.

half_litre (2004-06-30 15:38:00) [12]
Забить то можно, но хочется понять причину сего.

Iconka (2004-06-30 15:36:00) [13]
Тогда забей на это и перенеси тело функции OnClose в OnDestroy.

Sandman25 (2004-06-30 15:35:00) [14]
OnClose не срабатывает в ряде случаев (при программной перезагрузке, например). OnCloseQuery срабатывает.

half_litre (2004-06-30 15:34:00) [15]
Увы, тоже самое

Iconka (2004-06-30 15:30:00) [16]
Попробуй f:=TSomeForm.Create(Self);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »