Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 05-04-2007
Byfed Byfed is offline
Miembro
 
Registrado: oct 2006
Posts: 18
Poder: 0
Byfed Va por buen camino
solución parcial.. una vuelta de tuerca más..

Encontré la solución haciendo lo siguiente:

Código:
procedure TFrameClientes.limpiar_detalle;
var
   i : integer;
begin
   for i:=0 to FormPrincipal.FrameClientes1.ComponentCount-1 do
      begin
         if (FormPrincipal.FrameClientes1.Components[i] is TEdit) then
            Tedit(FormPrincipal.FrameClientes1.Components[i]).text := '';
         if (FormPrincipal.FrameClientes1.Components[i] is TCheckBox) then
            TcheckBox(FormPrincipal.FrameClientes1.Components[i]).checked := false;
         if (FormPrincipal.FrameClientes1.Components[i] is TMemo) then
            TMemo(FormPrincipal.FrameClientes1.Components[i]).text := '';
         if (FormPrincipal.FrameClientes1.Components[i] is TComboBox) then
            begin
               TComboBox(FormPrincipal.FrameClientes1.Components[i]).text := '';
               TComboBox(FormPrincipal.FrameClientes1.Components[i]).itemindex := -1;
            end;
      end;
end;
Ahora quedaría otro reto.. y es hacer este procedimiento más general aún...
Que no lo tenga que escribir para cada frame.. sino que el frame fuera un parámetro y poder llamar al procedimiento como:

limpiar_detalle(FrameClientes1);

¿Alguien sabe cómo?

Salu2
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Crear Procesos Hijos ---baja--- API de Windows 3 06-07-2006 20:07:47
Formulario MDI e Hijos chux OOP 7 07-12-2005 21:19:14
multiples hijos en un TTreeView bustio OOP 1 23-11-2005 09:42:03
Forms Hijos djj OOP 9 31-10-2004 02:16:27
...14 hijos... Jure Humor 0 18-08-2004 00:55:03


La franja horaria es GMT +2. Ahora son las 01:57:32.


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