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