settray(nim_delete );
end;
end;
mouseup(mbright, keystoshiftstate(twmmouse(msg).keys)+ [ssright], p.x, p.y);
end;
end;
end
else
msg.result := defwindowproc(fhandle, msg.msg, msg.wparam, msg.lparam);
end;
//以下为几个事件的调度函数,比较简单.
procedure tmytray.dblclick;
begin
if assigned(fonicondblclick) then
fonicondblclick(self);
end;
procedure tmytray.click;
begin
if assigned(foniconclick) then
foniconclick(self);
end;
procedure tmytray.mousedown(button: tmousebutton; shift: tshiftstate; x, y: integer);
begin
if assigned(foniconmousedown) then
foniconmousedown(self, button, shift, x, y);
