自己创建控件,是从TTcpClient继承下来的,不知如何重载OnConnect事件?

[wz_hzb]

自己创建控件,是从TTcpClient继承下来的,不知如何重载OnConnect事件,自加的两个属性是可以了.以下是代码,请高手指点
class PACKAGE MyTcpClient : public TTcpClient
{
private:
protected:
public:
__fastcall MyTcpClient(TComponent* Owner);
int wwork;
int wwait;
__published:
__property int work = {read=wwork,write=wwork};
__property int wait = {read=wwait,write=wwait};
};
在哪个地方实现代码?

[珍惜生命远离CPP]

直接在类声明内写上OnConnect的函数声明
class PACKAGE MyTcpClient : public TTcpClient
{
private:
protected:
public:
__fastcall MyTcpClient(TComponent* Owner);
int wwork;
int wwait;
.. OnConnect( ... );//参数返回值和基类相同
__published:
__property int work = {read=wwork,write=wwork};
__property int wait = {read=wwait,write=wwait};
};

[珍惜生命远离CPP]

class PACKAGE  MyTcpClient : public TTcpClient
{
private:
protected:
public:
    __fastcall MyTcpClient(TComponent* Owner);
    __property TSocketNotifyEvent OnConnect = {read=FOnConnect, write=FOnConnect};
    TSocketNotifyEvent FOnConnect;
};

[珍惜生命远离CPP]

TSocketNotifyEvent OnConnect 这不是已经有了么？

你只需要写一个函数对FOnConnect这个函数指针赋值就能响应了。
VCL使用的方法是Delphi的。和C++的虚函数有些区别

[wz_hzb]

首先感谢两位的回答,
to akirya
class PACKAGE MyTcpClient : public TTcpClient
{
private:
protected:
public:
__fastcall MyTcpClient(TComponent* Owner);
__property TSocketNotifyEvent OnConnect = {read=FOnConnect, write=FOnConnect};
TSocketNotifyEvent FOnConnect; <--这行错误 E2109 Not an allowed type
};

把这行移一下就可以了
class PACKAGE MyTcpClient : public TTcpClient
{
private:
protected:
TSocketNotifyEvent FOnConnect; <--这行移到这里
public:
__fastcall MyTcpClient(TComponent* Owner);
__property TSocketNotifyEvent OnConnect = {read=FOnConnect, write=FOnConnect};
};
但是OnConnect的函数实现部分怎么写呀,我不知道
我是在MyTcpClient.cpp里这样写的,但编译通不过
void __fastcall MyTcpClient::FOnConnect()
{
TTcpClient::Connect();
//加入自己要写的代码
}