我正在使用Delphi 5,我们有一种方法可以根据数据库表的内容动态创建某些控件(我们主要创建TButtons)并在点击这些控件时采取行动.这允许我们向表单添加简单控件,而无需重新编译应用程序.
我想知道是否可以根据字符串中包含的属性名称设置组件的属性,以便我们可以设置更多选项.
伪代码:
- Comp := TButton.Create(Self);
- // Something like this:
- Comp.GetProperty('Left').AsInteger := 100;
- // Or this:
- Comp.SetProperty('Left',100);
这有可能吗?
解决方法
您必须使用Delphi的运行时类型信息功能来执行此操作:
此博客准确描述了您要执行的操作:Run-Time Type Information In Delphi – Can It Do Anything For You?
基本上你必须使用GetPropInfo获取属性信息,然后使用SetOrdProp来设置值.
- var
- PropInfo: PPropInfo;
- begin
- PropInfo := GetPropInfo(Comp.ClassInfo,'Left');
- if Assigned(PropInfo) then
- SetOrdProp(Comp,PropInfo,100);
- end;