Hola ricardo_yah.
Una posible solución es usar el evento
OnClose del MDIChild en lugar de
OnCloseQuery.
Código Delphi
[-]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageBox(Handle,'Desea salir de la ventana Nueva Factura?',
'AVISO',MB_YESNO+MB_ICONQUESTION)= IDNO then
begin
Abort;
Exit;
end;
Action:= caFree;
Form2:= nil;
end;
Saludos.
