[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