单元typinfo里面这两个函数怎么用: SetObjectProp和SetVariantProp 单元typinfo里面这两个函数怎么用: SetObjectProp和SetVariantProp怎么老是出错!SetVariantProp(button1,'caption',name); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SetObjectProp 用于设置属性的对象句柄。ValidateClass 参数表示是否需要检查传入的对象类型与属性信息的类信息是否兼容。 procedure SetObjectProp(Instance: TObject; PropInfo: PPropInfo; Value: TObject; ValidateClass: Boolean = True); procedure SetObjectProp(Instance: TObject; const PropName: string; Value: TObject);例子: var MyFont: TFont; begin MyFont := TFont.Create; MyFont.Height := 20; SetObjectProp(Self, 'Font', MyFont); end; for i=0 to self.ComponentCount-1 do setvariantprop(Components[i],'readonly',true); 给出字母, 如何得到汉字与汉字词组?? (拼音输入或五笔输入)(1000分相求)... Delphi2005 性能测试 文件打开的问题 做梦..... 请求传dxDbgrid for delphi6的控件包 把数据库里的记录数据读到COMBOBOX的Items里 要面试了,请大家给小弟点意见? 求教学习方法 一條IDSL電話線,怎樣實現多臺電腦同時上网,回答者都有分!!! 如何获得并修改本机的IP,网关与DNS??一百九十分!!!!! 如何清除3721、雅虎助手这样一些流氓软件?真是讨厌之极! A窗口怎么使B窗口DataSource1刷新
Value: TObject; ValidateClass: Boolean = True);
procedure SetObjectProp(Instance: TObject; const PropName: string;
Value: TObject);例子:
var
MyFont: TFont;
begin
MyFont := TFont.Create;
MyFont.Height := 20;
SetObjectProp(Self, 'Font', MyFont);
end;
setvariantprop(Components[i],'readonly',true);