Error al abrir un formulario

[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.

[jafera]

Buenas a todos.

Despues de unos dias fuera de servicio, retomé el problema en cuestión y gracias a un hilo en el que se hablaba de eurekalogs, lo instalé y di con la solución.

Eureka me dio error en las lineas siguientes:

Código Delphi [-]
 
procedure TF_Camions.DBCheckBox3Click(Sender: TObject);
begin
if DBCheckBox3.Checked = True then
        begin
                F_Camions.DBEdit10.Visible:=True;
                F_Camions.Label14.Visible:=True;
        end
        else
        begin
                F_Camions.DBEdit10.Visible:=False;
                F_Camions.Label14.Visible:=False;
        end;
end;

Todo parece correcto y siempre habia funcionado, lo que hice fue anular F_Camions de las lineas quedando el código así

Código Delphi [-]
 
procedure TF_Camions.DBCheckBox3Click(Sender: TObject);
begin
if DBCheckBox3.Checked = True then
        begin
                DBEdit10.Visible:=True;
                Label14.Visible:=True;
        end
        else
        begin
                DBEdit10.Visible:=False;
                Label14.Visible:=False;
        end;
end;

y ya no ha fallado más. No se si el llamar a un componente de un form con el nombre del form delante puede afectar así pero......

Gracias por vuestra ayuda.

Josep