Delphi 不用标题栏移动窗体
procedure TxxxxForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const sc_DragMove: Integer = $F012; begin if ssCtrl in Shift then //判断“Ctrl”键是否按下 Begin ReleaseCapture; //释放鼠标事件的对象 //(Sender as TWinControl).PerForm(wm_SysCommand, sc_DragMove, 0); //实现在组件内移动,如果是顶层,就是移动窗体 //self.perform(WM_SYSCOMMAND, sc_DragMove, 0); //实现移动窗体 //SendMessage(Self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); //实现移动窗体 end; end;
以上注释的三段#9,#11,#13都可以起到移动窗体的效果。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | procedure TxxxxForm . FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer ); const sc_DragMove: Integer = $F012 ; begin if ssCtrl in Shift then //判断“Ctrl”键是否按下 Begin ReleaseCapture; //释放鼠标事件的对象 //(Sender as TWinControl).PerForm(wm_SysCommand, sc_DragMove, 0); //实现在组件内移动,如果是顶层,就是移动窗体 //self.perform(WM_SYSCOMMAND, sc_DragMove, 0); //实现移动窗体 //SendMessage(Self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); //实现移动窗体 end ; end ; |
分类:
Pascal Lazarus
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· .NET Core 托管堆内存泄露/CPU异常的常见思路
· PostgreSQL 和 SQL Server 在统计信息维护中的关键差异
· C++代码改造为UTF-8编码问题的总结
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· 清华大学推出第四讲使用 DeepSeek + DeepResearch 让科研像聊天一样简单!
· 实操Deepseek接入个人知识库
· CSnakes vs Python.NET:高效嵌入与灵活互通的跨语言方案对比
· Plotly.NET 一个为 .NET 打造的强大开源交互式图表库