动态访问Delphi组件中的属性

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

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