Clonar las propiedades de un control

Cuantas veces hemos deseado en tiempo de ejecución copiar las características de un control a otro según las acciones del usuario. Por ejemplo si tenemos nuestro propio editor de informes se podrían copiar las carácterísticas de las etiquetas seleccionas por el usuario al resto del formulario (font, color, width, etc.)

Para ello tenemos que añadir la unidad TypInfo:

uses
  Windows, Dialogs, ..., TypInfo;

A esta función que voy a mostrar hay que pasarle el control origen y el destino (la copia) así como que propiedades deseamos copiar:

function ClonarPropiedades( Origen, Destino: TObject;
                            Propiedades: array of string ): Boolean;
var
  i: Integer;
begin
  Result := True;
  try
    for i := Low( Propiedades ) to High( Propiedades ) do
    begin
      // ¿Existe la propiedad en el control origen?
      if not IsPublishedProp( Origen, Propiedades[I] ) then
        Continue;

      // ¿Existe la propiedad en el control destino?
      if not IsPublishedProp( Destino, Propiedades[I] ) then
        Continue;

      // ¿Son del mismo tipo las dos propiedades? 
      if PropType( Origen, Propiedades[I]) <>
        PropType( Destino, Propiedades[I] ) then
        Continue;

      // Copiamos la propiedad según si es variable o método
      case PropType(Origen, Propiedades[i]) of
        tkClass:
          SetObjectProp( Destino, Propiedades[i],
            GetObjectProp( Origen, Propiedades[i] ) );

        tkMethod:
          SetMethodProp( Destino, Propiedades[I],
                         GetMethodProp( Origen, Propiedades[I] ) );
        else
          SetPropValue( Destino, Propiedades[i],
                        GetPropValue( Origen, Propiedades[i] ) );
      end;
    end;
  except
    Result := False;
  end;
end;

Para copiar las características principales de una etiqueta habría que llamar a la función de la siguiente manera:

 ClonarPropiedades( Label1, Label2, ['Font', 'Color', 'Alignment',
                    'Width', 'Height', 'Layout'] );

También se pueden copiar eventos tales como OnClick, OnMouseDown, etc. permitiendo así abarcar muchos controles con un solo evento.

Pruebas realizadas en Delphi 7.