releasecapture怎么做成:像BCB设计界面时可以多选控件并可拖动效果求解

releasecapture  时间:2021-06-10  阅读:()

SetCapture到底是什么?

函数功能:该函数在属于当前线程的指定窗口里设置鼠标捕获。

一旦窗口捕获了鼠标,所有鼠标输入都针对该窗口,无论光标是否在窗口的边界内。

同一时刻只能有一个窗口捕获鼠标。

如果鼠标光标在另一个线程创建的窗口上,只有当鼠标键按下时系统才将鼠标输入指向指定的窗口。

函数原型:HWND SetCapture(HWND hwnd); 参数: hWnd:当前线程里要捕获鼠标的窗口句柄。

返回值:返回值是上次捕获鼠标的窗口句柄。

如果不存在那样的句柄,返回值是NULL。

备注:只有前台窗口才能捕获鼠标。

如果一个后台窗口想捕获鼠标,则该窗口仅为其光标热点在该窗口可见部份的鼠标事件接收消息。

另外,即使前台窗口已捕获了鼠标,用户也可点击另一个窗口,将其调入前台。

当一个窗口不再需要所有的鼠标输入时,创建该窗口的线程应当调用函数ReleaseCapture来释放鼠标。

此函数不能被用来捕获另一进程的鼠标输入。

鼠标事件: setCapture捕获以下鼠标事件:onmousedown、onmouseup、onmousemove、onclick、ondblclick、onmouseover和onmouseout。

程序中主要是要捕获onmousemove和onmouseup事件。

msdn的介绍中还说到setCapture有一个bool参数,用来设置在容器内的鼠标事件是否都被容器捕获。

容器就是指调用setCapture的对象,大概意思就是: 参数为true时(默认)容器会捕获容器内所有对象的鼠标事件,即容器内的对象不会触发鼠标事件(跟容器外的对象一样); 参数为false时容器不会捕获容器内对象的鼠标事件,即容器内的对象可以正常地触发事件和取消冒泡。

Delphi如何实现无边框窗体的移动?

在控件的MouseDown事件中加入 if (ssleft in Shift) then begin ReleaseCapture; Perform(WM_mand, $F012, 0); end; 如form1: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (ssleft in Shift) then begin ReleaseCapture; Perform(WM_mand, $F012, 0); end; end; end.

如何获取鼠标是否进入控件(按钮tips显示

作者:黎哲_海情 答:现mandbutton控件举例,其他控件一样: 1.首先声明两个API函数//获得焦点Function ulong SetCapture(ulong hWnd) Library "USER32.DLL"//释放焦点Function BOOLEAN ReleaseCapture() Library "USER32.DLL" 2.自定义用户事件鼠标在控件上移动mousemove(EventID号为pbm_mousemove),鼠标进入控件mousewithin,鼠标离开控件mousewithout。

3.声明一些Instance变量 boolean ib_mousecaptured//控件是否已经获得焦点 boolean ib_mousewithin//鼠标是否进入控件 integer ii_losecapture=0//控件是否要失去焦点 4.在mousemove事件中写入 if ii_losecapture 1 then if not ib_mousecaptured then//没有捕获鼠标移动 //捕获鼠标移动 SetCapture(handle(this)) ib_mousecaptured = TRUE else //已经捕获鼠标移动 if xpos < 0 or ypos < 0 or xpos width or ypos height then//鼠标不在该控件上//释放鼠标ReleaseCapture() ib_mousecaptured = FALSE //触发mousewithout事件 this.post event mousewithout() ib_mousewithin=false ii_losecapture=0 //this.of_set()elseif not ib_mousewithin then //触发mousewithin事件 this.post event mousewithin() ib_mousewithin=trueend ifend ifend ifelseii_losecapture=ii_losecapture + 1end if 5.最后你就可以在mousewithin和mousewithout中写入你想要的效果或事件。

of_set()可能是重置某些值的操作源码天空

怎么做成:像BCB设计界面时可以多选控件并可拖动效果求解

其中单个控件拖动方法: 其一:用mouseDown,mouseMove,mouseUp可实现,但占CPU大. 其二:在OnMouseDown: ReleaseCapture(); SendMessage(Button1-> Handle,WM_SYSCOMMAND,0XF012,0); 但不会触发mouseUp,Click,startDrag,DragDrop,EndDrag. 其三:在OnStartDrag: ReleaseCapture(); SendMessage(Button3-> Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); 拖动好后,还要再在无任何处多点一下能恢复鼠标事件. 现要做成:在程序运行时,能动态添加/删除控件,且可以多选控件进行拖动,如BCB设计界面. ------解决方案--------------------------------------------------------这个 不知道你得最终意图

  • releasecapture怎么做成:像BCB设计界面时可以多选控件并可拖动效果求解相关文档

青果网络618:洛杉矶CN2 GIA/东京CN2套餐年付199元起,国内高防独服套餐66折

青果网络怎么样?青果网络隶属于泉州市青果网络科技有限公司,青果网络商家成立于2015年4月1日,拥有工信部颁发的全网IDC/ISP/IP-VPN资质,是国内为数不多具有IDC/ISP双资质的综合型云计算服务商。青果网络是APNIC和CNNIC地址分配联盟成员,泉州市互联网协会会员单位,信誉非常有保障。目前,青果网络商家正式开启了618云特惠活动,针对国内外机房都有相应的优惠。点击进入:青果网络官方...

UCloud云服务器低至年59元

最近我们是不是在讨论较多的是关于K12教育的问题,培训机构由于资本的介入确实让家长更为焦虑,对于这样的整改我们还是很支持的。实际上,在云服务器市场中,我们也看到内卷和资本的力量,各大云服务商竞争也是相当激烈,更不用说个人和小公司服务商日子确实不好过。今天有看到UCloud发布的夏季促销活动,直接提前和双十一保价挂钩。这就是说,人家直接在暑假的时候就上线双十一的活动。早年的双十一活动会提前一周到十天...

SugarHosts糖果主机六折 云服务器五折

也有在上个月介绍到糖果主机商12周年的促销活动,我有看到不少的朋友还是选择他们家的香港虚拟主机和美国虚拟主机比较多,同时有一个网友有联系到推荐入门的个人网站主机,最后建议他选择糖果主机的迷你主机方案,适合单个站点的。这次商家又推出所谓的秋季活动促销,这里一并整理看看这个服务商在秋季活动中有哪些值得选择的主机方案,比如虚拟主机最低可以享受六折,云服务器可以享受五折优惠。 官网地址:糖果主机秋季活动促...

releasecapture为你推荐
excel计算公式求excel函数公式大全视频技术视频监控技术的定义及特点腾讯年终奖腾讯外聘员工与正式员工的区别是什么?搜索引擎的概念什么叫搜索引擎?搜索引擎的类型有哪些?审计平台审计软件的产品介绍河北云办税厅河北省商务厅的人员编制数据库界面数据库怎么进入界面电子邮件软件常用的邮件收发软件电子邮件软件电子邮件软件哪个好用红牛下架红牛下架事件怎么回事?美宜佳最近怎么买不到红牛了?
子域名查询 老鹰主机 国外私服 gomezpeer 12306抢票攻略 789电视 网站木马检测工具 国外免费asp空间 天翼云盘 国外ip加速器 国外视频网站有哪些 linode支付宝 英国伦敦 主机管理系统 国外免费网盘 xshell5注册码 japanese50m咸熟 hosting winserver2008下载 nic 更多