begin
getcursorpos(p);
isclickin:=true;
mousedown(mbleft, keystoshiftstate(twmmouse(msg).keys) + [ssleft], p.x, p.y);
end;
wm_lbuttonup: //左单击弹起
begin
getcursorpos(p);
if isclickin then
begin
isclickin:=false;
click;
if frmode=lclick then
begin
showwindow(application.handle,sw_show);
setwindowlong(application.handle,gwl_exstyle ,oldstyleex);
sendmessage(application.handle,wm_syscommand,sc_restore,0);
settray(nim_delete );
end;
end;
