Ver Mensaje Individual
  #2  
Antiguo 31-03-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Reputación: 25
__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