mouseup(mbleft, keystoshiftstate(twmmouse(msg).keys)+ [ssleft], p.x, p.y);
end;
wm_rbuttondown: //右单击下
begin
getcursorpos(p);
isclickin:=true;
mousedown(mbright, keystoshiftstate(twmmouse(msg).keys) + [ssright], p.x, p.y);
end;
wm_rbuttonup: //右单击弹起
begin
getcursorpos(p);
if isclickin then
begin
isclickin:=false;
click;
if frmode=rclick then
begin
showwindow(application.handle,sw_show);
setwindowlong(application.handle,gwl_exstyle ,oldstyleex);
sendmessage(application.handle,wm_syscommand,sc_restore,0);
