problema con formularios al volver abrirlo

[novato_erick]

Hola a todos

vean este código:

Código Delphi [-]

procedure TFrmPrincipal.aNuevoExecute(Sender: TObject);
begin
  if frmVendedores{FrmArticulos} = nil then
    begin
      FrmVendedores := TfrmVendedores.create(FrmVendedores);
      FrmVendedores.Parent := FrmPrincipal.Panel4;
      FrmVendedores.Caption := 'Vendedores';
      FrmVendedores.Show;
      FrmPrincipal.TabSet1.Tabs.add(FrmVendedores.Caption);
      FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
      dmacceso.cdsVendedores.open;
      dmacceso.cdsVendedores.Insert;
    end
       else
           begin
                frmvendedores.Free;
                frmvendedores := nil;
           end;
end;

:

en el evento OnClose del formulario

Código Delphi [-]
Action := caFree;

ah una cosa mas el formulario tiene las siguientes propiedades:

Aling : alClient
borderStyle: bsNone
formStyle: fsNormal

bueno esto sucede con todos los formulario cuando los cierro al parecer nos los libera, y cuando los vuelvo a abrir me manda el error.

Favor ayudenme....


Saludos

novato_erick

[novato_erick]

---------------------------
Debugger Exception Notification
---------------------------
Project Inventarios.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'.
---------------------------
Break Continue Help
---------------------------


Este es el error que me envia

[[oscarac]]

seria un poco mas facil de entender si es que mencionas el error que te aparece

[roman]

Creo que olvidaste decir cuál es el error. Por otro lado no me queda claro el sentido de tu código. ¿Por qué mandas destruir el formulario cuando frmVendedores <> nil?

// Saludos

[[oscarac]]

[quote=novato_erick;407437]
Código Delphi [-]

procedure TFrmPrincipal.aNuevoExecute(Sender: TObject);
begin
if frmVendedores{FrmArticulos} = nil then
begin
FrmVendedores := TfrmVendedores.create(FrmVendedores);
FrmVendedores.Parent := FrmPrincipal.Panel4;
FrmVendedores.Caption := 'Vendedores';
FrmVendedores.Show;
FrmPrincipal.TabSet1.Tabs.add(FrmVendedores.Caption);
FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
dmacceso.cdsVendedores.open;
dmacceso.cdsVendedores.Insert;
end
end;



Código Delphi [-] Pruebalo asi...en el Evento OnDestroy coloca

Código Delphi [-]
frmVenderores := nil;

[novato_erick]

oscarac

Me funciono la modificación que me sugeriste ahora puedo cerrar y abrir tranquilamente mi formulario Gracias Primero que Nada... Sin embargo que pudo observar el cual me daba problema el código que cree?. Me serviría de algo una retro alimentación.

Saludos...

[novato_erick]

roman

Creo que fue lo que hizo oscarac simplemente eliminar el

Código Delphi [-]
frmVendedores.free
frmVendedores = nill

Sin embargo "En Teoría" Según la Cara oculta de Delphi y otros textos, los eventos de cierre de formulario se realizan en el evento OnClose, no en OnDestroy..

Aun no estoy muy claro en eso.

Saludos

[[oscarac]]

lo que esta mas abajo, fue una respuesta de roman alla por el año 2003
y cito...

El método Free no debe llamarse desde el formulario. En su lugar debe usarse Release ya que este método se encarga de esperar a que termine cualquier evento que esté procesando el formulario y sólo entonces llama a Free.

En cuanto a Action := caFree es exactamente lo mismo que Release. Si revisas el código fuente de la unidad Forms.pas notarás que el método Close del formulario llama al evento OnClose y cuando este último regresa, Close verifica el parámetro Action. Si Action es igual a caFree entonces Close llama al método Release.

// Saludos

[novato_erick]

Agradezco mucho tu aclaración oscarac. Me ah ayudado muchisimo.


//Saludos

[[oscarac]]

aqui te dejo un enlace para que entiendas un poquito mas... yo tenia las mismas dudas

[novato_erick]

Eso mismo me paso a mi, esos procedimientos son los que yo utilizaba sin embargo me daban el mismo problema como vez llama free desde el mismo formulario.

Sin embargo desde el link que me enviastes me tome el rato de leerlo todo, y al final la misma duda que tengo desde un principio, La manera adecuada de cerrar un formulario si utilizo el evento OnDestroy me traiga problemas posteriores? ya que recomiendan la mayoría es utilizar el evento OnClose.

//Saludos

[novato_erick]

Esto me sucede también por ejemplo:

Código Delphi [-]
if Application.MessageBox('¿Desea Agregar Otro?', '',
  MB_ICONQUESTION OR MB_YESNO ) = ID_NO then
  begin
    frmCliente.Free;
  end;

enviandome este error:


---------------------------
Debugger Exception Notification
---------------------------
Project Inventarios.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'.
---------------------------
Break Continue Help
---------------------------

en en evento onClick del btnCancelar también me envia dicho error.


Saludos y gracias...

[[oscarac]]

tengo entendido que no puedes hacerle free, porque si tu haces una depuracion, el flujo del programa aun continua dentro del formulario

lo mas razonable (al menos lo que he entendido es hacer lo siguiente)

En OnClose Action := caFree;
en Destroy frmloquesea := Nil;

en tu ejemplo en logar de colocar frmcliente.free debes colocar Close;
para que el flujo derive al evento correspondiente

salvo alguien tenga una mejor sugerencia

[ecfisa]

Correcto oscarac.

O también, como te dijo oscarac más arriba, hacer:

Código Delphi [-]
if Application.MessageBox('¿Desea Agregar Otro?', '',
  MB_ICONQUESTION OR MB_YESNO ) = ID_NO then
    frmCliente.Release;

Saludos.

[novato_erick]

Gracias ecfisa y oscara ya comprendo mucho mejor la creacion y cierre de formmularios correctamente. aunque me veo con intriga los comportamiento que he encontrado en mi aplicacion, ejemplo:

el formulario frmVendedores he realizado el cierre con el evento OnClose poniendo Action := caFree;

sin ningun problema lo abro y lo cierro e incluso liberando todos los objetos dentro del formulario.

pero en el frmCliente no sucede lo mismo Usando el evento OnClose ya que al volverlo a llamar no hace nada y he tenido que recurrir al evento OnDestroy
frmCliente := nil sin embargo al abrirlo nuevamente me dice que tengo un campo de mi dataset que con un valor nulo
significa que el evento OnDistroy no me cierra totalmente el formulario....


En pocas palabras no entiendo de dichos comportamientos...

[ecfisa]

Hola.

sin embargo al abrirlo nuevamente me dice que tengo un campo de mi dataset que con un valor nulo
significa que el evento OnDistroy no me cierra totalmente el formulario

Es que hay dos cosas distintas en juego, cerrar un TForm y cerrar un TDataSet. ¿ Cuál es exáctamente el error que te arroja ?

Saludos.

[novato_erick]

---------------------------
Debugger Exception Notification
---------------------------
Project Inventarios.exe raised exception class EDatabaseError with message 'Field 'CEDULA' must have a value'.
---------------------------
Break Continue Help
---------------------------

[[oscarac]]

y la primera vez que abres el form no te manda el error?

[ecfisa]

Hola.

Por lo que dice el error, en algún punto (puede ser al salir del form) estas intentando guardar un registro, en el cuál 'CEDULA' es un campo requerido y no tiene valor asignado.

Saludos.

[novato_erick]

exacto oscarca a la primera vez que abro el form no me manda ese error.


Saludos