Modificar propiedad del un componente

[hexxa]

Gracias a ambos, es lo que estaba necesitando!!!!!

[hexxa]

La info que me pasaron me vino de maravillas, pero tengo otro problema, cuando la propiedad que deseo modificar/leer es una subpropiedad de una propiedad no lo puedo hacer. Por ej si lo que quiero es modificar la propiedad 'size' de la propiedad 'font' de un tlabel, las funciones SetOrdProp, GetOrdProp no encuentran esa propiedad, o bien me estoy equivocando en como le paso el parametro. He probado con

SetStrProp(TControl(Sender), 'size', 10);

y con

SetStrProp(TControl(Sender), 'font.size', 10);

y no me reconoce ese nombre de propiedad.

Tambien estoy usando GetPropInfo y no la encuentra.

GetPropInfo(TControl(Sender).ClassInfo,'size');

Alguna idea de como debo referenciarla???

[[coso]]

Código Delphi [-]
var
   ob : TObject;
   ft : TFont;
begin
   ob := FindComponent(nombre_del_objeto);  // p.e. : nombre_del_objeto := 'Edit1'
   if ob = nil then begin ShowMessage('No existe ese objeto'); exit; end;

   ft := (GetObjectProp(ob,'Font') as TFont); //GetObjectProp recoge las propiedades que son un objeto, como en este caso, la fuente
   SetOrdProp(ft,'size',18); // cambiamos ahora el size del objeto que es propiedad del Edit1, su Font
end;