Ver Mensaje Individual
  #12  
Antiguo 17-01-2004
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: May 2003
Ubicación: Huelva
Posts: 2.638
Reputación: 18
guillotmarc Va por buen camino
Veamos el primer problema.

El error está, como he comentado en el mensaje anterior, en la variable que utilizas para referenciar el formulario.

Durante la creación que haces del formulario :

Código:
procedure TPrincipal.Crear_Ventana(Nombre: String; Modificado: Boolean);
var
ventana: TVentana_Hija;
begin

ventana := TVentana_Hija.Create(Self);
ventana.Caption := Nombre ;
SB_Barra.Panels[1].Text := ventana.Caption;
ventana.Show;

end;
Estás accediendo al formulario (El Caption del Formulario), y funciona bien ¿ verdad ?.

Si aquí mismo hicieras :

Código:
Ventana.RE_Editor.Lines.LoadFromFile(OD_Abrir_Fichero.FileName);
Ventana.RE_Editor.Modified := False;
Funcionaria correctamente. Esto es porqué referencias al formulario mediante una variable local, como propongo al final de mi mensaje.

En cambio, en tu código, una vez creado el formulario, finaliza el procedimiento y desaparece la variable Ventana con que lo has referenciado. Cuando quieres volver a acceder a ella, utilizas la variable Ventana_Hija, cosa que el compilador accepta puesto que es del tipo adecuado, pero como no está inicializada con ningún valor, da un error en ejecución al usarla.

Para solucionarlo, una posiblidad es poner todo el código en un solo procedimiento que mantenga una referencia Ventana válida :

Código:
procedure TPrincipal.Abrir_FicheroExecute(Sender: TObject);
var Ventana: TVentana_Hija;
begin
  if not OD_Abrir_Fichero.Execute then Exit;
  if not FileExists(OD_Abrir_Fichero.FileName) then Exit;

  ventana := TVentana_Hija.Create(Self);
  ventana.Caption := OD_Abrir_Fichero.FileName;
  SB_Barra.Panels[1].Text := OD_Abrir_Fichero.FileName;

  Ventana.RE_Editor.Lines.LoadFromFile(OD_Abrir_Fichero.FileName);
  Ventana.RE_Editor.Modified := False;
end;
En todo caso, creo que es conveniente que te leas todo mi mensaje anterior, puesto que hay más casos comentados.

Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).
Responder Con Cita