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都可以起到移动窗体的效果。

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;

最新文章

1. 项目中应用eventbus解决的问题
2. js017-错误处理与调试
3. 【leetcode】Remove Duplicates from Sorted List II （middle）
4. 20145320 《Java程序设计》第10周学习总结
5. JavaSE复习_8 泛型程序设计
6. mongodb数据库js查询
7. SVN配置使用
8. mysql优化21条经验（转）
9. dropdownlist 二级联动
10. ET 与RETI 基于51单片机中断跳出指令“RETI”浅议
11. losbyday Linux下的强大工具之一akw（转）,Shell必备
12. HTML+CSS+JS简介
13. Android的Base64的坑
14. (网页)the server responded with a status of 403 (Forbidden)
15. MT【41】利用不等式妙消参数
16. eMMC ext4综述【转】
17. android开发之使用SQLite数据库存储
18. CronExpression
19. .NET Core 2.1路线图
20. dwr.jar简介

热门文章

1. fzu 2128
2. 并行输入\输出控制器之我见（PIO）
3. HDU 5241 上海大都会 F题
4. 解析HTTP协议六种请求方法
5. Android内存解析（二）— 详解内存，内部存储和外部存储
6. Webkit内核开源爬虫蜘蛛引擎
7. 【BZOJ 1370】 团伙
8. 快速排序及三向切分快排——java实现
9. PCB 奥宝LDI 输出 轴交换与镜像关系
10. Largest Rectangle in a Histogram(dp)