Hola a todos
vean este código:
Código Delphi
[-]
procedure TFrmPrincipal.aNuevoExecute(Sender: TObject);
begin
if frmVendedores = 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
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