| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/12/12 17:02:15 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 各位： 我的程序窗体是个无标题、无边框的窗体。 我想用鼠标移动它，不知如何实现。 如果你有答案，请明示。 我的QQ：199577850 Mail：SEFox@sohu.com 请注明邮件主题：关于你的程序 非常感谢 ---------------------------------------------- 给口饭吃吧，各位...... |
|||||
| 作者： |
|
2003/12/12 17:07:27 | ||||
| 1楼： | procedure Form1MouseDown......... const SC_DRAGMOVE = $f012; begin ReleaseCapture; Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); end; 很简单吧,:) ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/12 17:43:09 | ||||
| 2楼： | 请问楼上，这样做，是不是让窗体认为你在caption的地方，而不是client? 我这样的话，右键不可以用啊，有什么好办法吗？ ---------------------------------------------- http://www.gaiwei.com |
|||||
| 作者： |
|
2003/12/12 17:50:55 | ||||
| 3楼： | 右键我就不知道了,嘿嘿 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/12 17:53:12 | ||||
| 4楼： | 右键 不行 很少用 右键 拖动 窗体！ ----------------------------------------------  
|
|||||
| 作者： |
|
2003/12/12 17:57:10 | ||||
| 5楼： | procedure Form1MouseDown......... const SC_DRAGMOVE = $f012; begin if Button = mbLeft then begin ReleaseCapture; Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); end; end; ---------------------------------------------- 米软科技有限公司  http://www.szmesoft.com
|
|||||
| 作者： |
|
2003/12/12 18:12:49 | ||||
| 6楼： | 楼上的,你的跟我的一样 嘿嘿,无法处理右键托动 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/15 16:34:17 | ||||
| 7楼： | 呵呵 .给自己发送个左键消息不可以吗 ---------------------------------------------- 
|
|||||
| 作者： |
|
2003/12/15 16:41:13 | ||||
| 8楼： | 第2楼说的是右键不能使用了，如需要弹出右键菜单等，而不是使用右键进行拖动吧。 ---------------------------------------------- 米软科技有限公司 http://www.szmesoft.com
|
|||||
| 作者： |
|
2003/12/15 16:44:27 | ||||
| 9楼： | 你不能截获右键消息吗？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/15 21:00:23 | ||||
| 10楼： | { 哈哈，，教你一個笨辦法。 聲明全局變量 } var ismove : boolean; initX, initY : integer; //在Tform1.mousedown中 Tform1.MouseDown(); begin ismove := true; initX := X; initY := Y; end; //在mouseup中 Tform1.MouseUp(); begin ismove := false end; //在mousemove中 Tform1.MouseMove(); begin if ismove then begin left := left + X - initX; top := top + Y -initY; end; end; //一切OK，，你想用哪個鍵在ismove := true;前加條件就可以了。 ---------------------------------------------- ——混世生 |
|||||
| 作者： |
|
2003/12/15 23:43:46 | ||||
| 11楼： | 我同意10楼 ---------------------------------------------- 春花秋月何時了 往事知多少 小樓昨夜又東風 |
|||||
| 信息 |
| 登陆以后才能回复 |
