Ver Mensaje Individual
  #12  
Antiguo 14-04-2011
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow

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...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita