请教有关类的的知识(30分)

请问谁有关BCB类的完整定义和扩展应用的例子啊？
（简单无所谓，重要的是类的功能完整。急用，）

BCB的那些东西好多都是用PASCAL写的。你自己去看BCB中VCL的原代码呗

我给一段：
.h
typedef void __fastcall (__closure * TestEvent) (int);//定义事件原形
class PACKAGE TTest : public TComponent//TTest 从TComponent继承得来
{
private:
int i;//定义属性调用的变量
TestEvent test;//定义事件响应函数
protected:
public:
bool __fastcall Start();//定义方法
__fastcall TTest(TComponent* Owner);//构造函数
__published:
__property TestEvent Ontest={read=test,write=test};//定义事件
__property int abc={read=i,write=i};定义属性
};
.cpp
static inline void ValidCtrCheck(TTest *)
{
new TTest(NULL);
}
//---------------------------------------------------------------------------
__fastcall TTest::TTest(TComponent* Owner)
: TComponent(Owner)
{
}
bool __fastcall TTest::Start() //激活事件
{
if(test!=NULL)
{
test(1);//激活事件
}
}

在../sourse/..可找到
其实,找一个用BCB写的控件打开即可见