delphi用RTTI 来改变控件的值

本文链接：https://blog.csdn.net/qi_jianzhou/article/details/652883
给panel设字体
procedure setPropIsExist(acomponent:Tcomponent;name:string;Avalue:tobject);
var
  typeinfo:PPropInfo;
begin
  typeInfo := getPropInfo(acomponent,name);
  if typeinfo<>nil then
  begin
     if typeinfo^.PropType^.Kind = tkclass then
        typInfo.SetObjectProp(acomponent,name,avalue);
  end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
  f:tfont;
begin
  f := tfont.Create;
  f.Name := '黑体';
  f.Size := 18;
  f.Color :=clred;
  setPropisExist(self.Panel1,'font',f);

  f.Free;
end;

给panel设 caption
procedure setprop(acom:tobject;name:string;value:string);
var
  p:PPropinfo;
begin
  p := getPropInfo(acom.classinfo,'caption');
  if p <> nil then
  begin
    setstrprop(acom,name,value);
  end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
  c:string;
begin
  c := 'fdjsaklfds';
  setProp(panel1,'caption1',c);
end;
————————————————
版权声明：本文为CSDN博主「qi_jianzhou」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/qi_jianzhou/article/details/652883