Здравствуйте! Помогите решить задачу по ловле события закрытия MDIChild окна. Пробовал такой вариант:

code:

procedure TForm1.wmParentNotify(var msg: TMessage); //где Form1.FormStyle = fsMDIForm
begin
  inherited;
  //Например так
  If TWMParentNotify(Msg).Event = WM_DESTROY then
  begin
    showMessage('form closed!');
    msg.result := 0;
  end;
  //Или так
  if msg.WParamLo = WM_DESTROY then
  begin
    showMessage('form closed!');
    msg.result := 0;
  end;
end;

Ло ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83450