duda con ventanas

[ronson]

Resulta que tengo un boton en mi aplicacion que abre una ventana de la siguiente forma:

Application.createform(TfrmAlbaranes,frmAlbaranes);

pues bien, mi pregunta es la siguiente, como podria hacer para que al pulsar el boton que me abra la ventana no me la abriese si ya hubiera o hubiese otra igual abierta?



Muchas gracias de antemano por vuestra atencion.

[Nuria]

Hola ronson!

   if not assigned(frmAlbaranes) then
     Application.createform(TfrmAlbaranes,frmAlbaranes);

Saludos!

[ronson]

Cuando quiero descargar de memoria una ventana llamo al evento release.

frmAlabaranes.release y cuando compruebo la siguiente vez si la venta esta creada con lo que me ha dicho nuria anteriormente:


if not assigned(frmAlbaranes) then
Application.createform(TfrmAlbaranes,frmAlbaranes);

me dice que esta creada luego me creo que no destruyo bien la ventana.


que debo hacer?

[ronson]

he probado con DESTROY y poniendo en el evento onCLose del formulario las intrucciones:


frmAlbaranes.release

pero nada cuadno intento abrir la ventana me sale error, me dice que ya esta abuerta o cargada en memoria.

que hago mal?

[Nuria]

Pon en el OnClose del form:

    // Libero memoria del formulario
   Action:= CaFree;
   // Apunto a nulo el form, para que a la hora de llamarlo desde el form
   // principal, sepa si está activo o no.
   frmAlbaranes:= nil;

Saludos!

[ronson]

muchas gracias nuria ha sido un placer:

[ronson]

Como seria el mismo proceso para un DataModule?.


Por que Action no tiene.


gracias nuria de verdad!!!

[ronson]

Seria:

si DMAlbaranes es el data module asociado a alaranes:


DMAlbaranes.Destroy;
DMAlbaranes:=nil;


y ya esta.


Luego se crea maravillosamente.

saluditos y gracias por tu atencion de verdad.

[roman]

Empezado por ronson

DMAlbaranes.Destroy;
DMAlbaranes:=nil;

Nada más apuntar que el método recomendado para liberar un objeto, en este caso el módulo de datos, es Free y no Destroy. Por otra parte puedes liberarlo y ponerlo a nil con una sóla llamada:

FreeandNil(DMAlbaranes);

// Saludos

[ronson]

muchas gracias, asi lo hare roman




SALUDOS