Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
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
  #2  
Antiguo 31-03-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 27
__cadetill Va por buen camino
Para eso necesitas un poquito de RTTI

Código:
var
  PropInfo  : PPropInfo;
  Component : TComponent;
begin
  for i := 0 to Form.ComponentCount - 1 do
  begin
    Component := Form.Components[i];

    // Miramos si tiene la propiedad CAPTION
    PropInfo := GetPropInfo( Component.ClassInfo, 'Caption' );
    if Assigned(PropInfo) then
      SetStrProp(Component, 'Caption', GetIdioma(GetStrProp(Component, 'Hola')));
  end;
En el ejemplo, recorremos todos los componentes de un Formulario mirando si tienen la propiedad caption y, si la tienen, asignandole 'Hola'

MODIF.: se me habia olvidado comentar que has de añadir en el uses la unit TypInfo en que le encontrarás otras funciones SetXXXX y GetXXXX según la necesidad del tipo de variable

Última edición por __cadetill fecha: 31-03-2004 a las 11:59:12. Razón: Olvido
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


La franja horaria es GMT +2. Ahora son las 14:03:20.


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