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.