property oniconmouseup: tmouseevent read foniconmouseup write foniconmouseup;
end;
procedure register;
implementation
procedure register;
begin
registercomponents('wind', [tmytray]);
end;
///////////tmytray////////////////////////////
constructor tmytray.create(aowner:tcomponent);
begin
inherited create(aowner);
//设置程序钩子,指定appmsghook为处理函数,
//则,应用程序的任何消息都将经过这个函数
application.hookmainwindow(appmsghook);
ficon:=ticon.create;
//得到默认图标的句柄，图标为应用程序的图标
fdficon:=application.icon.handle;
fsetdficon:=true;
factive:=false;
frmode:=ldbclick;
