Ver Mensaje Individual
  #3  
Antiguo 14-04-2011
Diana Carolina Diana Carolina is offline
Miembro
NULL
 
Registrado: nov 2010
Posts: 30
Reputación: 0
Diana Carolina Va por buen camino
Asi es como se llama al Formulario.

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.free;
  end;
end;

Asi es como se cierra el formulario.

Código Delphi [-]
procedure TFrmClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//spbcancelar.OnClick(nil);

  QryConsulta.Close;
  //desactivas las consultas que utilizan las vistas
  QryLmTipCl.Close;
  QryLmFinan.Close; //Este es el componente ClientDataSet.
  QryLmSectorDian.Close;
  QryLmAecon.Close;
  QryGnDivip.Close;
  QryLmRegim.Close;
  QryLmTipCu.Close;
  QryOmEmiso.Close;
  QryLmPjRep.Close;
  QrySegmClie1.Close;
  QrySegmClie2.Close;
  QrySegmClie3.Close;
  QrySegmCanal1.Close;
  QrySegmCanal2.Close;
  QrySegmCanal3.Close;
  //consultas que se utilizan en los combos
  QryLmTipIden.Close;

  Action := caFree; //Cuando ejecuta esta linea sale el Access Violation
end;

Gracias por la colaboracion y si necesitan algo mas me avisan por favor.
Responder Con Cita