//以下为事件的调度函数
procedure dblclick; dynamic;
procedure click; dynamic;
procedure mousedown(button: tmousebutton; shift: tshiftstate; x, y: integer); dynamic;
procedure mouseup(button: tmousebutton; shift: tshiftstate; x, y: integer); dynamic;
procedure mousemove(shift: tshiftstate; x, y: integer); dynamic;
public
constructor create(aowner:tcomponent);override;
destructor destroy;override;
published
property active:boolean read factive write setactive default false;
property icon:ticon read ficon write seticon;
property setdficoned: boolean read fsetdficon write setdficon default true;
property hint:string read fhint write sethint;
property rmode:trmode read frmode write setrmode default ldbclick;
//事件的方法指针
property oniconclick: tnotifyevent read foniconclick write foniconclick;
property onicondblclick: tnotifyevent read fonicondblclick write fonicondblclick;
property oniconmousemove: tmousemoveevent read foniconmousemove write foniconmousemove;
property oniconmousedown: tmouseevent read foniconmousedown write foniconmousedown;
