Anidacion de Forms

[[gatosoft]]

Pues en principio veo tu código bien, No se si me escapa algún detalle, lo digo por que no eres muy específico en el "colgar"

Considero que deberías intentar una prueba simple, abriendo los formularios como lo indicas, pero sin activar la BD

Código Delphi [-]
procedure TMenuPrincipal.Clientes1Click(Sender: TObject);
var ficha:TElecClientes;
begin
Ficha:=TElecClientes.Create(Self);
//Ficha.DbClientes.Active:=True;
Ficha.Showmodal;
//Ficha.DbClientes.Active:=False;
Ficha.Free;
end;

De esta manera podría detectar si el problema está al activar tu BD, que al cargarse puede estar realizando alguna operación o consumiendo recursos...

También podría suceder que en el mismo oncreate o en el onshow esté realizando operaciones con recursos compartidos con los formularios gemelos...

Bueno, no se que mas decirte...

Por ultimo, te recomendaría (sugerencia personal) que revisaras la activación de la BD en el OnCreate del propio formulario...

Otra sugerencia sería que destruyeras el formulario en el evento OnClose, algo asi:

Código Delphi [-]
Procedure TForm1.OnClose(Var Action...)
BEgin
  Action:= caFree
end;

Con ésto aseguras que cada vez que cierre el formulario se libera la memoria...

saludo,

[[Espartaco]]

gracias gatosoft por tu rapida respuesta, decirte que tras varias comprobaciones he comprobado que el 'cuelgue' se realiza tras ejecutar la linea que crea el form, no da lugar ni a abrir la tabla, es mas he hecho lo que me dices y igual. Cuando digo cuelgue me refiero a que la aplicacion no responde a nada teniendo que usar el administrador de tareas para pararla. Emiezo a pensar que es que Delphi 5 no permite anidar mas de dos form, porque no encuentro otra explicacion la verdad. Estoy desesperado, tengo que entregar la aplicacion y me ha surgido esto. Espero que le haya pasado a alguien y lo haya solucionado.

Muchas gracias.

[Casimiro Noteví]

Si llamas al 3º form desde el 2º form, y destruyes el 2º form cuando llamas al 3º form... me parece que... tenemos un problema

[[Espartaco]]

No claro, la llamada al tercer form desde el segundo se hace antes de destruirlo. El proceso es ejecuto el primero, en un proceso de este se llama al segundo y en un proceso de este se llama al tercero, cuando se cierre el tercero se destruye, y cuando se cierre el segundo se destruye. El caso es que cuando son solo dos no hay ningun problema, solo me ha surgido al llamar al tercero y es lo que no entiendo.

Gracias por vuestra ayuda e interes.

[Casimiro Noteví]

Creo que no entiendo cómo lo haces. ¿Puedes poner el código?

[[Espartaco]]

Por supuesto.

Este es el codigo que llama al 1º form desde el menu principal:

Código Delphi [-]
procedure TMenuPrincipal.ModificarHojadeCarga1Click(Sender: TObject);
var ficha:TModificarCarga;
begin
     Ficha:=TModificarCarga.Create(Self);
     Ficha.DbCargas.Active:=True;
     Ficha.DbDCargas.Active:=True;
     Ficha.Showmodal;
     Ficha.DbCargas.Active:=False;
     Ficha.DbDCargas.Active:=False;
     Ficha.Free;
end;

Dentro del form TModificarCarga llamo al 2º cuando pulsamos el boton modificar carga:

Código Delphi [-]
procedure TModificarCarga.BitBtn4Click(Sender: TObject);
var ficha: TModificarAlbaranCarga;
begin
    Ficha:=TModificarAlbaranCarga.Create(Self);
  Ficha.DbMarcas.Active:=True;
  Ficha.DbClientes.Active:=True;
  Ficha.DbCargas.Active:=True;
  Ficha.DbConfCarg.Active:=True;
  Ficha.DbApoyo1.Active:=True;
  Ficha.DbApoyo1.Append;
  Ficha.DbSemanas.Active:=True;
  Ficha.DbGastos.Active:=True;
  Ficha.DbUltimaLecturaClientes.Active:=True;
  Ficha.DbDCargas.Active:=True;
  Ficha.Showmodal;
  Ficha.DbMarcas.Active:=False;
  Ficha.DbClientes.Active:=False;
  Ficha.DbCargas.Active:=False;
  Ficha.DbConfCarg.Active:=False;
  Ficha.DbApoyo1.Active:=False;
  Ficha.DbSemanas.Active:=False;
  Ficha.DbGastos.Active:=False;
  Ficha.DbUltimaLecturaClientes.Active:=False;
  Ficha.DbDCargas.Active:=False;
  Ficha.Free;
  DbGrid1.SetFocus;
end;

Dentro del form TModificarAlbaranCArga llamo al 3º form cuando pulso el boton añadir marcar:

Código Delphi [-]
procedure TModificarAlbaranCarga.BitBtn2Click(Sender: TObject);
var InputStr: string;
    Activado: Boolean;
    Existe: Boolean;
    I: Integer;
    ficha: TElecMarca;
begin
Activado:=False;
Existe:=False;
I:=0;
  InputStr:='';
  MarcaElegida:='';
  Ficha:=TElecMarca.Create(Self); // al ejecutar esta linea es cuando se cuelga
  Ficha.DbMarcas.Active:=True;
  Ficha.Showmodal;
  Ficha.DbMarcas.Active:=False;
  Ficha.Free;
  InputStr:=MarcaElegida;
  if InputStr<>'' then
  begin ........

Al ejecutar la linea para crear el 3º form es cuando se cuelga.
Espero que te lo haya aclarado es muy importante para mi resolverlo lo antes posible. Gracias.

[ecfisa]

Hola Espartaco.

Lo único que podría estar provocando el error, pero desconozco su locación, es la línea:

Código Delphi [-]
...
  Ficha.Free;
  DbGrid1.SetFocus; // <--- ¿ Donde reside DbGrid1 ?
end;

Saludos