Error al abrir un formulario

[ecfisa]

Hola.

Agregá en a tus forms MDIChilds el evento OnDestroy con la siguiente línea:

Código Delphi [-]
procedure TNombreDelForm.FormDestroy(Sender: TObject);
begin
  NombreDelForm:= nil;
end;

Ya que con

Código Delphi [-]
Action:= caFree

no estás destruyendo inmediatamente el form, solo le estás indicando a Windows que puede disponer de la memoria ocupada por dicho form
cuando él lo considere necesario.

También podés destruirlo en el evento OnClose:

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

Pero me parece que el evento OnDestroy es más adecuado.

Saludos.

[jafera]

Gracias Ecfisa.

He probado tus indicaciones y funciona, no da el error de access violation, pero ahora lo que pasa es que el form queda minimizado y no se destruye.

Esto es correcto?

Debo poner algo más?

Es que si le pongo el action:=cafree y el form:=nil en el onclose sigue fallando.

Saludos

Josep

[ecfisa]

Hola jafera.

Por favor, aclarame dos dudas:
. ¿ F_Camions es MDIChild ?
. ¿ Podrías poner el trozo de código donde lo creas y mostras? (Show/ShowModal)


Saludos.

[jafera]

Gracias Ecfisa.

El metodo de llamada es el que puse en el primer post del hilo

Código Delphi [-]
 
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
begin
        F_Camions:=TF_Camions.Create(Application);
        F_ModulDades.Camions.Locate('ID',Camions_ParcID.Value,[]);
end;

Veo que tras las pruebas el problema sigue siendo en action:=caFree, con el destroy a nil funciona bien pero no me lo cierra.

El form style es fsMDIChild

Saludos

Josep

[ecfisa]

Hola jafera.

Llamando a F_Camions desde F_Parcs de este modo:

Código Delphi [-]
...
procedure TF_Parcs.MostrarChild(FrmClass: TFormClass);
var
  i: Integer;
begin
  for i:= 0 to Screen.FormCount -1 do
    if Screen.Forms[i] is FrmClass then
    begin
      Screen.Forms[i].WindowState:= wsNormal;
      Screen.Forms[i].BringToFront;
      Exit;
    end;
  with FrmClass.Create(Application) do Show;
end;

procedure TF_Parcs.DBGrid1DblClick(Sender: TObject);
begin
  MostrarChild(TF_Camions);
end;

Y teniendo en F_Camions:

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

procedure TF_Camions.FormDestroy(Sender: TObject);
begin
  F_Camions:= nil;
end;

No tendrías que tener ningun inconveniente.

Para salir de toda duda hice la prueba y el form se cierra correctamente sin arrojar ninguna excepción.

Saludos.

[jafera]

Gracias Ecfisa.

He puesto todo lo que me dices y funciona, pero al darle varias veces, reiteradamente, dobleclick en el grid, abrir, cerrar, abrir, cerrar, al cabo de varios intentos sale el maldito mensaje de access error

Josep

[ecfisa]

Hola.

Debe haber algún código más involucrado que provoca el fallo. Usando sólamente el código que te puse no me dá ese error...
Revisá bién los métodos y eventos de TF_Camions poniendo breaks y usando Trace Into.

Espero lo resuelvas pronto.

Un saludo.