动态访问Delphi组件中的属性

发布时间：2020-12-15 04:23:23 所属栏目：大数据来源：网络整理

导读：我正在使用Delphi 5,我们有一种方法可以根据数据库表的内容动态创建某些控件(我们主要创建TButtons)并在点击这些控件时采取行动.这允许我们向表单添加简单控件,而无需重新编译应用程序. 我想知道是否可以根据字符串中包含的属性名称设置组件的属性,以便我们

我正在使用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;

这不像你的伪代码那么简洁,但它仍然可以完成这项工作.此外,它与其他内容(如数组属性)相比也变得更加复杂.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!