将一个字符串映射为一个Delphi页面控件属性名

uses   TypInfo;

function   TForm1.SetControlProp(ComStr,   value:   string):   boolean;
var   ComName,   ComProp:   string;
i:   integer;
Loop:   Integer;
PropInfo:   PPropInfo;
cp:   TComponent;
begin
i   :=   Pos('.',   ComStr);
if   i   >   0   then
begin
ComName   :=   copy(ComStr,   1,   i-1);
ComProp   :=   Copy(Comstr,   i+1,   1000);
cp   :=   FindComponent(ComName);
PropInfo   :=   GetPropInfo(cp.ClassInfo,   ComProp);
if   Assigned(PropInfo)   then
SetStrProp(cp,   PropInfo,   value);
end;
end;

procedure   TForm1.Button3Click(Sender:   TObject);
begin
SetControlProp('button1.caption',   'test');   //設置button1的caption   為   test
end;