0

我正在开发从 TCustomControl 类派生的自定义组件。我想添加新的基于 TFont 的属性，可以在设计时编辑，例如在 TLabel 组件中。基本上我想要的是为用户添加更改字体的各种属性（名称、大小、样式、颜色等）的选项，而无需将这些属性中的每一个都添加为单独的属性。

我的第一次尝试：

class PACKAGE MyControl : public TCustomControl
{
...
__published:
    __property TFont LegendFont = {read=GetLegendFont,write=SetLegendFont};

protected:
    TFont __fastcall GetLegendFont();
    void __fastcall SetLegendFont(TFont value);
...
}

编译器返回错误“E2459 Delphi 样式类必须使用 operator new 构造”。我也不知道我应该使用数据类型 TFont 还是 TFont*。在我看来，每次用户更改单个属性时创建新对象实例效率低下。我将不胜感激代码示例如何实现这一点。

4

1 回答 1

3

派生自的类TObject必须使用new运算符在堆上分配。您试图在TFont不使用任何指针的情况下使用，这是行不通的。您需要像这样实现您的属性：

class PACKAGE MyControl : public TCustomControl
{
...
__published:
    __property TFont* LegendFont = {read=FLegendFont,write=SetLegendFont};

public:
    __fastcall MyControl(TComponent *Owner);
    __fastcall ~MyControl();

protected:
    TFont* FLegendFont;
    void __fastcall SetLegendFont(TFont* value);
    void __fastcall LegendFontChanged(TObject* Sender);
...
}

__fastcall MyControl::MyControl(TComponent *Owner)
    : TCustomControl(Owner)
{
    FLegendFont = new TFont;
    FLegendFont->OnChange = LegendFontChanged;
}

__fastcall MyControl::~MyControl()
{
     delete FLegendFont;
}

void __fastcall MyControl::SetLegendFont(TFont* value)
{
    FLegendFont->Assign(value);
}

void __fastcall MyControl::LegendFontChanged(TObject* Sender);
{
    Invalidate();
}
于 2012-04-24T22:56:48.247 回答