[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