F
forgot2002
Unregistered / Unconfirmed
GUEST, unregistred user!
打算写一个函数,利用Rtti技术,把某一个控件的一些指定的公用的可以在运行期修改的属性赋予另一个同类控件,函数原型如下:
CloneProperty(SourceComp,TargetComp:TComponent;Properties:TStrings):Boolean;
参数:SourceComp:源控件;
TargetComp:目标控件;
Properties:要克隆的属性字符串列表;
Boolean:如果克隆成功返回True,否则为False;
举例:
Properties中的String依次为'Caption','Hint','Left','Tag'
调用:CloneProperty(Button1,Button2,Properties)
请给出具体实现源码。不要只谈想法。
CloneProperty(SourceComp,TargetComp:TComponent;Properties:TStrings):Boolean;
参数:SourceComp:源控件;
TargetComp:目标控件;
Properties:要克隆的属性字符串列表;
Boolean:如果克隆成功返回True,否则为False;
举例:
Properties中的String依次为'Caption','Hint','Left','Tag'
调用:CloneProperty(Button1,Button2,Properties)
请给出具体实现源码。不要只谈想法。