procedure cmmouseenter (var message: tmessage); message cm_mouseenter;
procedure cmmouseleave (var message: tmessage); message cm_mouseleave;
//当一个窗口的外观必须被画时,应用程序发送这个消息给该窗口
procedure wmpaint (var message: tmessage); message wm_paint;
//窗体需要计算位置和尺寸时触发
//我们用这个的目的主要是将客户区缩小三个象素，以便画组件时不会画到客户区。
procedure wmnccalcsize (var message: twmnccalcsize); message wm_nccalcsize;
protected
//画窗体的边框,使其看起来更美观.
procedure drawborder;
public
constructor create (aowner: tcomponent); override;
property position:tposition read getposition;
property margin:byte read fmargin write setmargin default 0;
published
property edgecolor:tcolor read fedgecolor write setedgecolor default $ff0000;
property entercolor:tcolor read fentercolor write setentercolor default $0000ff;
//显式化父类的属性
