移动无标题栏窗口
来源:互联网 发布:成都女司机 知乎 编辑:程序博客网 时间:2024/06/09 22:30
在private部分加入下列代码:
procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;
在程序部分加入以下代码:
procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;
下面是另一种方法
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;
- 移动无标题栏窗口
- 移动无标题栏窗口
- 移动无标题栏窗口
- 移动无标题栏窗口
- 移动无标题栏窗口
- 移动无标题栏窗口
- 移动无标题栏窗口L
- 无标题栏窗口的移动
- VC 无标题栏窗口移动
- 无标题栏的窗口移动及窗口标题栏设计
- 通用方法->移动无标题栏窗口
- [通用方法]移动无标题栏窗口
- 移动无标题栏的窗口-java
- 无标题栏窗口移动方法种种
- 无标题栏窗口移动方法种种
- WIN32无标题栏窗口移动方法种种
- MFC无标题栏窗口的移动
- SWT无标题栏的窗口移动
- Android开发指南-框架主题-安全和许可
- 我所理解的jQuery(1)--jQuery前传JavaScript101
- tomcat spring log4j web webAppRootKey webName.root petclinic
- 我所理解的jQuery(3)--jQuery的构建
- sql防止注入 连接
- 移动无标题栏窗口
- MySql常用命令
- Struts_BeanWrite标签
- LVS负载平衡之NAT模式
- C++指针探讨 (一)数据指针
- 如何部署一个java项目成web项目
- 使用洗牌算法生成随机序列
- C++指针探讨 (二) 函数指针
- C++指针探讨 (三) 成员函数指针