Ver Mensaje Individual
  #13  
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
Cita:
Empezado por rgstuamigo Ver Mensaje
Haber cambia ésta parte>
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;
por ésta otra>
Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
 try
   if not Assigned(FrmClientes)then //si no hay objeto creado para el apuntador "FrmClientes"
     {entonces lo voy a crear..}
     FrmClientes:=TFrmClientes.Create(Application);//creo una instancia nueva
  {De aquí en adelante ya se sabe que el FrmClientes no está en nulo}
  Permisos(FrmClientes.Tag);
  PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
  FrmClientes.ShowModal;
  finally
   FreeAndNil(FrmClientes);
  end;
end;
Prueba y nos comentas...
Saludos...
Hola Reemplacé el código con el que me enviaste y aún me sale el error de Access Violation. Además cuando cierro el formulario y lo intento abrir de nuevo me dice que ya existe un formulario llamado frmclientes, adjunté las imágenes que me salen. Espero que sirvan de algo.

Gracias por la colaboracion y quedo a la espera de sus comentarios.
Imágenes Adjuntas
Tipo de Archivo: jpg Access Violation.JPG (8,6 KB, 8 visitas)
Tipo de Archivo: jpg Already Exists.JPG (5,3 KB, 8 visitas)
Responder Con Cita