Cerrar Pantallas hijas en delphi 7.0

[[jcarteagaf]]

Proba hacerlo de la siguiente forma

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

pero tambien dependera de como crees la ventana si estas haciendo algo asi:

Código Delphi [-]
With TfrmVentanaHija.Create(application) do
  Show;

te marcara error de Access violation en el FormClose, debido a que el objeto frmVentanaHija no ha sido creado.

Normalmente yo creo y llamo a las formas hijas de la siguiente manera:

Código Delphi [-]
if frmVentanaHija = nil then
    frmVentanaHija := TfrmVentaHija.Create(application)
frmVentanaHija.Show;

En este caso, si la ventana hija ya ha sido creada, solamente la muestra.


Saludos.