TBitBtn 和 TButton 继承链发生了什么？

Question

我最近开始将我的 RAD Studio 2007 项目升级到 RAD Studio 2009。我注意到的一件事是，看似简单的代码突然无法编译。

示例代码：

class CButtonPopupMenu
{
    // Snip

public:
    void Init( TButton* SrcButton )
    {
        SrcButton->OnClick = OnButtonClick;
    }

private:
    void __fastcall OnButtonClick( TObject* Sender )
    {
        // Do some button click stuff
    }
};

// Snip

TButton button = new TButton( this );
TBitBtn bitBtn = new TBitBtn( this );
CButtonPopupMenu popupButton = new CButtonPopupMenu( button );
CButtonPopupMenu popupBitBtn = new CButtonPopupMenu( bitBtn );

这一切都用于编译，但在 2009 年它失败了。 查看 2007 年用于派生自 TButton 的 TBitBtn 的继承链。 因此，任何按钮控件上预期的事件（即 OnClick）都由 TButton 类共享。 因此，我能够将我的 TBitBtn 类视为 TButton。

2007 继承链：

• TBitBtn : TButton

2009 继承链：

• TBitBtn : TCustomButton
• TButton : TCustomButton

在 2009 年，TButton 和 TBitButton strong> 派生自 TCustomButton，我想如果按钮之类的属性保存在那里就可以了。 如果是这种情况，我只需更改代码来处理 TCustomButton 即可。 不幸的是，TCustomButton 不包含诸如 OnClick 之类的东西。 因此，我不能再像对待TButton那样对待TBitBtn。 这两个类现在都有自己独立的按钮类属性（即它们都声明了自己的 OnClick 事件）。 我的意思是，至少提供一个接口或其他东西，例如 TButton 和 TBitBtn 都实现的 IButton 。

似乎这些看似无害的变化可能会造成不必要的破坏。 这看起来很奇怪，我想知道是否有人知道为什么 CodeGear（或任何与此相关的框架作者）会做这种类型的事情？

更重要的是，考虑到这种碎片化的继承，是否存在一种优雅的解决方案来将TBitBtn视为TButton？

Answer 1

TButton 和 TBitBtn 仍然继续共享一个共同的 OnClick 事件，因为它从一开始就在 TControl 级别上一直实现，而且一直如此。 TButton 只是将受保护的 TControl::OnClick 事件提升为已发布，然后 TBitBtn 将继承该事件。

在 D2009 中，TCustomButton 与其他 TCustom... 类一样，不会将受保护的成员从基类提升为已发布。 TButton 和 TBitBtn 促进受保护的 TControl::OnClick 事件单独发布。 但事件本身仍然存在于TControl级别。

由于它在 TControl 级别受到保护，因此您可以使用访问器类来访问它，即：

class TCustomButtonAccess
{
public:
    __property OnClick;
};

class CButtonPopupMenu
{
    // Snip

public:
    void Init( TCustomButton* SrcButton )
    {
        ((TCustomButtonAccess*)SrcButton)->OnClick = OnButtonClick;
    }

private:
    void __fastcall OnButtonClick( TObject* Sender )
    {
        // Do some button click stuff
    }
};

或者，对于任何通用 TControl 指针：

class TControlAccess
{
public:
    __property OnClick;
};

class CControlPopupMenu
{
    // Snip

public:
    void Init( TControl* SrcControl )
    {
        ((TControlAccess*)SrcControl)->OnClick = OnControlClick;
    }

private:
    void __fastcall OnControlClick( TObject* Sender )
    {
        // Do some click stuff
    }
};

更优雅的解决方案是使用 RTTI，这也允许您处理其他类型的对象，例如 TSpeedButton，它们有自己的 OnClick 事件，即：

#include <TypInfo.hpp>

class TControlAccess
{
public:
    __property OnClick;
};

class CControlPopupMenu
{
    // Snip

public:
    void Init( TControl* SrcControl )
    {
        TMethod m;
        m.Code = &OnControlClick;
        m.Data = this;
        SetMethodProp(SrcControl, "OnClick", m);
    }

private:
    void __fastcall OnControlClick( TObject* Sender )
    {
        // Do some click stuff
    }
};

甚至：

#include <TypInfo.hpp>

class CObjectPopupMenu
{
    // Snip

public:
    void Init( TObject* SrcObject )
    {
        TMethod m;
        m.Code = &OnObjectClick;
        m.Data = this;
        SetMethodProp(SrcObject, "OnClick", m);
    }

private:
    void __fastcall OnObjectClick( TObject* Sender )
    {
        // Do some click stuff
    }
};

Answer 2

如果这是 Delphi，我建议使用带有 is 和 as 运算符的 TCustomButton 类：

if (SrcButton is TButton) then
  (SrcButton as TButton).OnClick := OnButtonClick
else if (SrcButton is TBitButton)
  (SrcButton as TBitButton).OnClick := OnButtonClick;

顺便说一句， C++ 已经太久远了

，VCL 有时不包括要提供的操作按钮、菜单等与调用代码之间的单一接口？