ventana hija que no se cierra al pulsar la 'x'

[Thoma]

No entiendo lo que me pasa, me explico, tengo una ventana padre(madre, o queráis llamarla) cuando abro una ventana hija para trabajar con ella y luego pulso la 'x' para cerrarla, lo que me hace es que la minimiza y no la cierra ¿alguien sabe a que es debido?

[ecfisa]

Hola Thoma.

Es el comportamiento normal de los forms MDIChild. En el evento OnClose del form MDIChild poné:

Código Delphi [-]
procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

Saludos.

[Thoma]

Gracias ecfisa, poniendo lo que me dices me funciona, pero por defecto ¿no debería de cerrar la ventana?
lo único que había añadido era lo siguiente:

Código Delphi [-]
procedure TFrmParametros.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     FrmParametros:=nil;
end;

[ecfisa]

Hola nuevamente.

pero por defecto ¿no debería de cerrar la ventana?

No, el comportamiento por defecto de las ventanas MDI hijas es minimizarse. Para que puedas verificarlo, agregá esta línea al evento OnClose del form MDIChild:

Código Delphi [-]
uses TypInfo;

procedure TFrmParametros.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowMessage(GetEnumName(TypeInfo(TCloseAction),Ord(Action))); 
end;

Saludos.

[Thoma]

gracias por tu aclaración (me estoy volviendo un poco loco con el delphi, acostumbrado al cobol....)
me sale el siguiente error:
[DCC Error] FrParametros.pas(35): E2003 Undeclared identifier: 'GetEnumName'

[ecfisa]

Hola Thoma.

Fijate que en el codigo de arriba incluí:

Código Delphi [-]
uses TypInfo;

Es necesario que agregues esa unidad para usar las funciones GetEnumName y TypeInfo.

Un saludo.

[Thoma]

Muchas gracias ecfisa, no me había percatado lo de la unidad.
un saludo.