dephi中单击鼠标拖动窗口(使用WM_SYSCOMMAND)
2016-02-25 18:37
375 查看
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0); //开始拖动窗体
end;
http://blog.csdn.net/diligentcatrich/article/details/7008516
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0); //开始拖动窗体
end;
http://blog.csdn.net/diligentcatrich/article/details/7008516
相关文章推荐
- puppet
- 多线程开发
- 图解Android - Zygote, System Server 启动分析
- delphi中左右翻转窗体(修改EXStyle)
- 银行卡信息查询
- STL 中的容器们(四)
- mysql 多个TimeStamp设置
- saltstack
- 互联网时代的股权激励
- ssh私钥登陆提示Server refused our key问的解决办法
- Many To one 多对一
- 在javascript中innerHTML和innerText的区别,以及innerHTML和innerText在各个版本浏览器的兼容性问题
- POJ2782(贪心)
- 如何建立自身的自信
- 【hdu1241】Oil Deposits——dfs/bfs
- delphi中覆盖最大化消息(覆盖WM_GETMINMAXINFO消息)
- 使用 RDVTabBarController 制作底部凸起的 TabBar 笔记
- cglib 源代码分析(原创)
- 屏幕适配
- C/C++中struct和typedef struct