Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #9  
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
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas con el MasterSource en un ClientDataset ygkw Conexión con bases de datos 2 05-03-2015 22:59:59
Problemas Con El Clientdataset Y Tztable foxito Conexión con bases de datos 4 24-11-2008 17:38:37
Problemas con clientdataset y limit Edgtho Conexión con bases de datos 11 02-06-2008 08:32:58
Problemas con Clientdataset.Open; jmlifi Varios 1 16-11-2006 13:51:13
Problemas con DBExpress - ClientDataset argami Conexión con bases de datos 4 26-07-2004 11:21:12


La franja horaria es GMT +2. Ahora son las 19:17:46.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi