//***********************************************************//
//******************* 创建组件探密 *********************//
//******************* 2000.08.15 leemingsong*************//
//***********************************************************//
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};
};
2.组件检验及注册
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对话框生成新组件，不用考虑该问题。
本人愿与天下程序员结友，有任何想法请告诉我 e-mail:leemingsong@163.net
