delphi - 如何使用GridPanel创建类似于RowSpan，ColSpan Delphi的组件属性

Question

我正在创建一个从gridpanel继承的组件。当我在网格面板上添加标签，编辑或其他组件时，edit，label ...组件将出现在Row，Col，RowSpan和ColSpan属性中。如何创建等于这些Row，Col，RowSpan和ColSpan属性的新属性。哪个仅在何时启用gridPanel上的组件？否，如果我想创建一个新属性，并且此属性将显示在网格面板上的“编辑”，“标签”等标签中。

我正在使用Delphi XE2

Answer 1

似乎不可能。当然，您可以复制源代码并对其进行修改，但不能直接继承。

问题是您可以从TControlItem类继承并添加所需的属性，但随后您无法修改TControlCollection ItemClass：TControlCollection构造函数替换祖先（TOwnedCollection）构造函数，因此您不能更改默认的ItemClass（ ）与派生的一个。

您可以尝试使用 TControlItem的类帮助程序，但在这种情况下，您将仅获得运行时支持（对象检查器和RTTI对此一无所知）。好吧，用一些讨厌的技巧，您可以做任何您想做的事，但是我认为这超出了我们的范围（有关详细信息，请参见 Add a property on TWinControl Class接受的答案，并阅读引用的原始Allen Bauer文章）。