你误解我的意思了,我是想用代码判断窗体上的所有控件是否具体某一属性。如输入法属性imename,我想把所有的具体输入法属性的ImeName属性设置为空。如DELPHI可以用如下代码实现:
var PropInfo PropInfo;
PropInfo:=GetPropInfo(controls.ClassInfo,'Text');
if (PropInfo<>nil) then
SetStrProp(controls[I], PropInfo, Sstr)
else
begin
PropInfo:=GetPropInfo(controls.ClassInfo,'Lines'); //这里是Memo控件,就不知道怎么写
if (PropInfo<>nil) then
begin
PropInfo:=GetPropInfo(GetObjectProp(controls,'Lines',Tstrings).classinfo,'Text');
if (PropInfo<>nil) then
SetStrProp(controls[I], PropInfo, Sstr);
end;
end; |