想在所有的可视控件中加入一个属性值,如int m_Index,并在Object Inspector中显示,如何实现?
找到Vcl.Controls.hpp文件,并在以下代码中加入:
class PASCALIMPLEMENTATION TWinControl : public TControl
{
typedef TControl inherited;
public: int m_Index; //自定义
private:
System::Classes::TList* FAlignControlList;
System::Word FAlignLevel;
TBevelEdges FBevelEdges;
TBevelCut FBevelInner;
TBevelCut FBevelOuter;
TBevelKind FBevelKind;
.....
如何实现呢?