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;
posted @   海利鸟  阅读(518)  评论(0编辑  收藏  举报
编辑推荐:
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· .NET Core 托管堆内存泄露/CPU异常的常见思路
· PostgreSQL 和 SQL Server 在统计信息维护中的关键差异
· C++代码改造为UTF-8编码问题的总结
阅读排行:
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· 清华大学推出第四讲使用 DeepSeek + DeepResearch 让科研像聊天一样简单!
· 实操Deepseek接入个人知识库
· CSnakes vs Python.NET:高效嵌入与灵活互通的跨语言方案对比
· Plotly.NET 一个为 .NET 打造的强大开源交互式图表库
点击右上角即可分享
微信分享提示