将一个字符串映射为一个Delphi页面控件属性名(通过FindComponent和GetPropInfo找到这个控件指针)
2016-10-12 00:33
337 查看
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;
http://www.cnblogs.com/kfarvid/archive/2009/10/19/1586229.html
相关文章推荐
- 将一个字符串映射为一个Delphi页面控件属性名
- 将一个字符串映射为一个Delphi页面控件属性名
- 如何将一个字符串映射为一个Delphi控件属性名
- 10_9_1编写代码,定义一个基类MyClass,其中包括虚礼方法GetString(),这个方法返回存储在受保护字段myString中的字符串,该字段可以通过只写公共属性ContainedStrin
- 统计一个页面有相同属性的控件有多少个
- C# .NET 遍历一个Web页面中所有的TextBox控件 并设置读写属性
- C#中通过一个对象,得到属性(字符串形式)的值
- 页面aspx里面有一个DataSet ds,且他下面的几个用户控件uc1,uc2,uc3都有用到这个ds相同的数据,所以我想要让这个ds在整个页面中使用
- Flex中如何通过errorString属性在CheckBox控件上设置一个错误信息显示字符串的例子
- GridView通过Container在前台页面访问并找到绑定模版中控件
- Winform中通过一个字符串定位到和字符串相等ID的控件(将字符串转换成相应的控件名称
- 如何为workflow单据类型定义一个form属性,在notify中通过这个属性打开表单
- 如何为workflow单据类型定义一个form属性,在notify中通过这个属性打开表单
- 因为不想再程序中写循环,因此把UI页面需要更新的纪录的主键组成了一个以","隔开的字符串,将这个字符串传入存储过程中进行处理(转)
- 不能通过键盘输入一个字符串,并使未初始化的指针指向它
- Winform中通过一个字符串定位到和字符串相等ID的控件(将字符串转换成相应的控件名称)
- Winform中通过一个字符串定位到和字符串相等ID的控件(将字符串转换成相应的控件名称)
- Flex中如何通过设置restrict属性在TextInput控件中限制用户可以输入的字符串的例子
- 关于通过代码指定页面控件的事件响应脚本函数的一个细节
- Winform中通过一个字符串定位到和字符串相等ID的控件(将字符串转换成相应的控件名称)