Formulario Auxiliar

[jzk]

Hola a tod@s,

Veamos, tengo el siguiente problemilla.

Quiero crear un formulario auxiliar cuando pulso un determinado botón en mi aplicación. Lo hago de la siguiente manera:

		Try
			 Application.CreateForm(TForm3histor,Faux);
			 Faux.ShowModal;
		Finally
			 Faux.Free;
		End;

El funcionamiento es correcto hasta que ejecuto varias ocasiones este formulario, entonces me aparece un error de memoria tal que así:

Violacion de acceso a la dirección 0000000666. Leer de dirección 0000000666

En otras ocasiones al primer intento obtengo este mismo error y tengo que cerrar la aplicación.

He seguido paso a paso el proceso y el error se produce cuando va a ejecutar la linea Faux.Showmodal, porque en el paso anterior que es donde crea el formulario con sus tablas y demás no existe/generá ningún error.

¿Se os ocurre algo?

[Neftali [Germán.Estévez]]

¿Tienes definido código en los eventos Create o Show del formulario auxiliar?
Si lo tienes ¿Qué codigo tienes colocado?

En principio el trozo de código que colocas es correcto, así sólo con eso no debería fallar.

¿Tienes algun componente no estandard en ese formulario? (que te pueda provocar ese error). Prueba a eliminar código y componentes a ver si te sigue dando.

[jzk]

Voy a hacer las comprobaciones que me indicas y luego te cuento, porque tengo lineas de código en el Create del formulario lo que ocurre es que como realiza todos los pasos que hay en ese evento correctamente creía que el problemas derivaba del Showmodal que es donde me mete el petardazo.

[jzk]

He comentado todas las lineas de programación incluidas en los eventos;

OnCreate, OnClose y OnCloseQuery

Y sin embargo el problemas persiste y no utilizo ningún objeto que no sea standard.

¿se os ocurre algo?, gracias.

[[Lepe]]

		Try
			 Application.CreateForm(TForm3histor,Faux);
			 Faux.ShowModal;
		Finally
			 Faux.Free;
			 Faux := nil;
		End;

Yo intentaría esto.

Si te da error, entonces probaría esto otro:

         Faux := TForm3historic.Create(nil);
		Try
			 Faux.ShowModal;
		Finally
			 Faux.Free;
			 Faux := nil;
		End;

Si te furula bien alguna de las formas, ya explicaré la diferencia

Un saludo

[jzk]

No me ha funcionado pero te agradecería que me explicases el por qué, ah y darte las gracias.

[roman]

¿Quién es FAux? Es decir, ¿dónde está declarado?

No sé a qué diferencia se refiere Lepe ya que hay dos diferencias. La sustancial, desde mi punto de vista, es sacar la creación del formulario del bloque try-except. Si hubiera alguna excepción al momento de crear el formulario, se estaría intentando liberar un objeto que nunca terminó de construirse totalmente.

// Saludos

[jzk]

Faux, es una variable declarada de la siguiente manera:

 procedure Programa1.SpeedButton1Click(Sender: TObject);
var Faux: TForm3histor;
begin
   Try
      Application.CreateForm(TForm3histor,Faux);
      Faux.ShowModal;
   Finally
      Faux.Free;
   End;End

[[Lepe]]

La explicación ya la dió roman, además como no sabía donde estaba declarada la variable Faux, lo que hago es asignarle nil despues de liberarla.

jzk creo que hay "algo más" que no nos cuentas, quizás porque has creido que no tiene importancia. La verdad, todos los códigos propuestos funcionan a la perfección.

La ventana es de tipo mdiChild?

Hay más código en el SpeedButton ??

Dentro de la ventana Faux, llamas a algún evento, propiedad o método de la ventana Programa 1 ??

Un saludo