Problema al Cerrar Forms Hijos

[ricardo_yah]

perdon roman a si es el tengo un form padre que nada mas se debe cerrar
a los hijos les active el kepreview y en el evento onkey press puse el codigo

Código Delphi [-]
procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
begin
close;
end
end;

y en el FormCloseQuery

procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox( 'Desea salir de la ventana Nueva Factura?','¡ATENCION!',
MB_ICONQUESTION OR MB_YESNO Or mb_DefButton2) = ID_NO then
canclose:=False;
end;

pero te digo yo quiero que cuando se cierre el form padre aunque esten abiertos los hijos, no me pregunte uno por uno solo que se cierre y ya
graxxxx...

[ecfisa]

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.

[ricardo_yah]

Hola Ecfisa.

Por lo visto eres mi santo en delphi tu respuesta fue acertada e inmediata gracias...