C++ Builder 11.2下C++方法赋值Delphi事件编译错误解决咨询

问题概述 #

项目原在RAD Studio 10.1中可正常运行的事件绑定代码，在C++Builder 11.2编译时触发错误：

[bcc64 Error] xy.cpp(1021): cannot compile this unexpected cast lvalue yet

原绑定代码：

NewObject->OnDraw = (TDrawEvent)&(CObj->MyVRMLShapeDraw);

相关核心声明：

Delphi端事件定义 #

TDrawEvent = procedure (Sender: TGLObject; Face: GLenum; Draft: boolean; State: TGLDrawState ) of object;  

private
  FOnDraw: TDrawEvent;   
published
  property OnDraw: TDrawEvent read FOnDraw write FOnDraw;

C++端方法声明 #

class TManager : public TBaseObject {
public:
    void __fastcall MyVRMLShapeDraw(TGLObject *Sender, DWORD Face, bool Draft, char DrawState);
};

已知新版编译器要求参数类型严格匹配：需用unsigned替代DWORD，用glclasses::TGLDrawState替代char。

解决方案 #

1. 先修正参数类型匹配 #

必须保证C++方法的签名与Delphi事件完全一致，这是编译通过的前提：

class TManager : public TBaseObject {
public:
    void __fastcall MyVRMLShapeDraw(TGLObject *Sender, unsigned Face, bool Draft, glclasses::TGLDrawState DrawState);
};

2. 直接类型转换适配（优雅且高效） #

新版bcc64对Delphiof object类型（对应C++的__closure方法指针）的转换规则更严格，需使用static_cast替代C风格强制转换：

NewObject->OnDraw = static_cast<TDrawEvent>(&CObj->MyVRMLShapeDraw);

注意：此方法仅适用于TManager继承自VCL/FMX的TObject派生类（如示例中的TBaseObject），因为__closure要求方法所属对象为VCL兼容类型。

3. 底层TMethod构造（灵活适配非VCL对象） #

如果TManager不是VCL对象，可直接操作Delphi事件的底层TMethod结构体实现绑定：

TMethod method;
method.Code = reinterpret_cast<void*>(&TManager::MyVRMLShapeDraw); // 提取方法地址
method.Data = CObj; // 绑定对象实例
NewObject->OnDraw = *reinterpret_cast<TDrawEvent*>(&method);

此方式需确保参数签名绝对匹配，否则会引发运行时崩溃。

4. 封装适配类（类型安全且易维护） #

若需更优雅的封装，可实现一个VCL适配类转发事件，替代全局函数：

class TDrawEventAdapter : public TObject {
private:
    TManager* FTarget;
public:
    __fastcall TDrawEventAdapter(TManager* target) : FTarget(target) {}
    void __fastcall ForwardDraw(TGLObject *Sender, unsigned Face, bool Draft, glclasses::TGLDrawState DrawState) {
        FTarget->MyVRMLShapeDraw(Sender, Face, Draft, DrawState);
    }
};

// 使用示例：
TDrawEventAdapter* adapter = new TDrawEventAdapter(CObj);
NewObject->OnDraw = &adapter->ForwardDraw;
// 注意：需在对象生命周期结束时释放adapter，避免内存泄漏

该方案利用VCL对象的__closure兼容性，实现类型安全的事件转发，无全局状态，代码可维护性更强。

内容的提问来源于stack exchange，提问作者kgz