Событие закрытия дочерней формы.

Недавно меня озадачили вопросом, как отловить момент закрытия дочерней формы. Должен вызываться onActivate,- подумал я сразу, дак нет. И как же все таки отловить подобное событие? Задача стояла следующая: есть главная форма, с нее открываются модальные дочерние. При закрытии дочерней модальной формы требуется произвести некоторые операции. Поэтому сразу и подумалось что должно сработать OnActivate главной формы, ведь по идее после закрытия модальной, основное окно получает фокус и становится активным. Но нет, такого не произошло. Второе что придумалось, в принципе как вариант логичное - сделать общую процедуру для показа модальных окон. Т.е допустим при нажатии на N-ную кнопку создается N-ная форма. Для этого создадим процедуру которая будет получать объект TForm, вызывать его showModal, и потом производить нужные действия.

procedure TMainForm.ShowModalAndDoAction(form : TForm);
begin
    form.showModal();
    do_something_here();
end;

procedure TMainForm.ButtonNClck(sender:TObject);
var form : TForm;
begin
    form := TForm.Create(self);
    ShowModalAndDoAction(form);
    form.free;
end;

Либо даже не только показывать, но и вообще создавать нужное окно, отображать, а потом производить операции, т.е если у нас на форме N кнопок, каждая из которых только и делает, что создает форму класса TFormN показывает ее модально, потом освобождает память, и тут то нам надо провести наши операции.

type TFormN = class(TForm);
...

procedure TMainForm.ShowModalAndDoAction(formClass : TFormСlass);
begin
    with formClass.Create(self) do begin
        ShowModal();
        free();
    end;
    do_something_here();
end;

procedure TMainForm.ButtonNClck(sender:TObject);
begin
    ShowModalAndDoAction(TFormN);
end;

Далее придумалась бредовая мысль, что если все дочерние формы унаследовать не от TForm а от своего класса, в котором переписать onDestroy таким образом, чтобы он вызывал метод главной форме, или отправлял сообщение. Но этот вариант в принципе реализуем, но не особо как то интересен. Далее мысль скакнула в сторону сообщений. Почему бы собственно и нет? Форма закрылась - должно разослаться сообщение. Пробежался по списку сообщений, кажется вот оно - WM_PARENTNOTIFY. Вот что нам сообщает MSDN:

The WM_PARENTNOTIFY message is sent to the parent of a child window when the child window is created or destroyed .... When the child window is being destroyed, the system sends the message before any processing to destroy the window takes place

кажется то что надо.. окей. далее

wParam The low-order word of wParam specifies the event for which the parent is being notified. This parameter can be one of the following values. WM_CREATE - The child window is being created. WM_DESTROY - The child window is being destroyed. .... LOWORD(wParam) - Meaning of HIWORD(wParam) WM_CREATE - Identifier of the child window. WM_DESTROY - Identifier of the child window.

кажется все ясно и понятно: получили сообщение, если старшее слово от wParam = WM_DESTROY то форма закрылась и в WParamLo имеем ее идентификатор. Долго не раздумывая пишем:

  private 
    procedure wmParentNotify(var msg:  TMessage); message WM_PARENTNOTIFY;
...
procedure TMainForm.wmParentNotify(var msg:TMessage);
begin 
   inherited;
   if msg.wParaHi = WM_DESTROY then begin
        showMessage('form closed!');
        msg.result := 0;
   end; 
end;

Ну или по крайней мере как то так. Запускаем, создаем дочернюю форму, закрываем иии... и ничего. Да, я так и не понял что с этим всем делать, если кто нить расскажет то буду рад (: все таки решение нашлось, но не совсем общее, хотя поставленную задачу решает идеально. Если с формой ничего не выходит, то может быть Application в чем нибудь сможет помочь? Смотрим свойства, методы.. modalStarted, modalFinished.. modalLevel, onModalStart и наконец onModalEnd. Итак, при вызове showModal формы, вызывается процедура onModalStarted, которая увеличивает счетчик modalLevel, далее если текущий modalLevel = 0 (т.е не открыты модальные формы) и назначено событие onModalStart, то это событие и вызывается. Аналогичная ситуация возникает при закрытии модальной формы: вызов modalFinished, уменьшение счетчика, и если уровень равен нулю, и назначено событие, то вызывается OnModalEnd. События эти самые обычные TNotifyEvent = procedure(Sender:TObject) of object, т.е указатели на процедуру с параметром типа TObject. Одна проблема, при вызове данного события, логично было бы предположить что sender это именно форма, которая закрывается, но нет - sender = Application. Т.е получить какую либо информацию о закрывающейся форме не получится. Что же выходит в итоге: при создании главной формы назначаем событие которое будет вызываться при закрытии модальной формы первого уровня. в нашем случае - процедура ChildFormClosed.

  private
    procedure ChildFormClosed(sender:TObject);
...

procedure TMainForm.FormCreate(Sender: TObject);
begin
    application.OnModalEnd := ChildFormClosed;
end;

procedure TMainForm.ChildFormClosed(sender:TObject);
begin
       ShowMessage('childForm Closed!');
end;

Да, можно, конечно, было воспользоваться объектом TApplicationEvents с панели инструментов Additional, но сути дела это не меняет. Вопрос о том, как же все таки в приложении перехватывать закрытия произвольных, в том числе не модальных окон, остается загадкой для меня. Все таки хочется думать что надо колдовать что то с WM_PARENTNOTIFY.. написано что это сообщение должны получать все окна до самого главного, причем не важно модальное было окно или нет, а в добавок еще и идентификатор окна получим, и сможем узнать что за окно закрылось. Кстати из расширенных свойств у каждой формы есть свойство WS_EX_NOPARENTNOTIFY, установив которое, при закрытии формы сие сообщение не рассылается. этот стиль по умолчанию имеют диалоговые окна. Использование тестового окна у которого заведомо не установлено это свойство все равно не дало результата при обработке данного сообщения.

 form := TForm.Create(self);
SetWindowLong(form.handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);