1.创建组件的类声明
class PACKAGE 新类名 : public 祖先类名
{
private:私有数据：
(1)内部私有用
(2)发布属性的真正数据保存
(3)发布事件的数据保存
(1,2,3)私有数据初始化一般在构造函数中,(3)的初始化一般与祖先该事件相连。
通常为方便直接调用祖先方法常加保存祖先类型的变量:typedef 祖先类名 Inherit;
私有方法：仅在类定义内部使用，不希望被继续使用，不希望公开使用。(尽量写成通用函数)
protected:保护数据：一般很少用。
保护方法：一般是虚函数。在类定义时内部使用，对象不能直接调用，并把公开与否控制权给其派生类其派生类可以用重定义该方法，并可将其公开。
public:公有数据：一般属性，但不属于发布（即设计期不能操作）属性并不是真正的数据需要私有数据来保存属性，操作属性通过方法。常用的定义如：
方式1：
__property AnsiString ItemData={read=FItemData,write=FItemData,default="A"};
方式2：
__property AnsiString ItemData={read=GetItemData,write=SetItemData,default="A"};
FItemData是其数据私有保存处GetItemData(),SetItemData()是实现读写函数，其内部除了设置数据外还可以加相应的处理代码，这部份处理就是属性的最大优点。即通过直接修改属性既实现了数据的读写又可实现的代码处理，然而用户的感觉似乎是只作了数据的改，正是这点“副作用”所带来的。
另外假如对属性的修改不需要响应处理则只用定义方式1就行了。
公有方法：实现类的封装，改变数据成员都通过公有函数。(Method)重定义函数通常的先调用祖先类的该方法Inherit::XXX();(Inherit已说明,XXX表函数名)， 然后再写自身要作的处理代码。
__published:发布属性：同公有部分的属性，区别在于发布属性在设计期可直接通过对象观察器修改。祖先类已发布的属性，最好在此作确认。
顺便指出方法不宜写在发布声明处，属性同样可写成公有或私有，但是它们是无法在设计期访问的,私有属性仅在内部使用不向用户提供。
}
写组件应尽量多用属性，而少用方法。只有属性无法完成的工作才由方法来完成。
发布事件：
1.普通事件: 参数唯一仅有TObject *Sender,一般用TNotifyEvent(指针类型)
如：__property TNotifyEvent OnExit={read=FOnExit,write=FOnExit} ;
同属性一样需要私有数据来保存事件指针。
TNotifyEvent FOnExit;另外是事件处理代码。
void __fastcall MyOnExit(System::TObject *Sender)其实现代码中由 FOnExit(Sender)语句触发事件；(注重事件处理函数返值void)
2.非凡事件:
首先：需定义事件类型指针(类似于函数指针的定义)
typedef void __fastcall (__closure *TKeyDownEvent)(System::TObject* Sender, Word &Key,TShiftState Shift);
其次：要有数据保存处。在private处声明：如 TKeyDownEvent FOnKeyDown ;
再次：有相应事件处理函数一般在protected处声明。如
protected:virtual void __fastcall MyOnKeyDown(System::TObject *Sender, WORD &Key,TShiftState Shift);
代码中常有 FOnKeyDown(Sender,Key,Shift)
最后：设定连接(需要提供前三者:事件指针类型，数据存放处变量,事件处理函数)。
__property TKeyDownEvent OnKeyDown={read=FOnKeyDown,write=FOnKeyDown}; };
组件检验及注册static inline void ValidCtrCheck(新类名 *){new 新类名(NULL);}
确保该控件声明中没有纯虚函数，因为虚基类是不能生成实例的。
namespace 名称空间
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(新类名)};
}
RegisterComponents("所属包名", classes, 0);
还可加属性编辑器说明 RegisterPropertyEditor(...)}}名称空间是个C++特性，利用此Register()函数才可以区分其它控件。此命名必须符合规范，跟控件所在的文件名有关。如 TMyButton在 mybutton.cpp中则此命名空间为Mybutton.用New Component对话框生成新组件，不用考虑该问题。