Delphi如何实现无边框窗体的移动
2024-08-27 23:44:10
在控件的MouseDown事件中加入
if (ssleft in Shift) then
begin ReleaseCapture; Perform(WM_syscommand, $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_syscommand, $F012, 0);
end;
end;
end.
最新文章
- sql时间查询的问题
- inflate的基本用法，类似于findviewbyId
- android之进度条组件ProgressBar
- Map/Reduce的类体系架构
- Oracle11g R2学习系列 之三教程选择
- Dubbo-Admin管理平台和Zookeeper注册中心的搭建（转）
- postman 简单教程-实现简单的接口测试
- redis数据操作
- 痞子衡嵌入式：串口调试工具Jays-PyCOM诞生记（6）- 打包发布(PyInstaller3.3.1)
- python和anacoda安装第三方库的位置
- oracle(环境搭建二）
- android 开发 View _8_ 动态图片自定义View
- Windows Mac地址伪装步骤
- cef研究
- hdu 1254(两个BFS) 推箱子
- 基于TLS证书手动部署kubernetes集群(上)
- noip 提高组 2010
- c读入实型
- 【动态规划】POJ-3616
- http、https 等 常用默认端口号