|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2021/2/26 14:28:43 |
标题: |
系统提供了一个StartWindowDrag功能用来方便的移动无边框窗口,如何强制结束这种状态。 |
浏览:716 |
|
加入我的收藏 |
楼主: |
系统提供了一个StartWindowDrag功能用来方便的移动无边框窗口, 非常好用,现有一疑问,如何强制结束这种状态?默认是MouseUp时侯 结束拖放,那么求教如何通过代码来结束,谢谢。
尝试调用 ReleaseCapture 但没有效果。
----------------------------------------------
简单做人,认真做事。 |
作者: |
cxg417 (cxg417) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2021/2/27 13:52:43 |
1楼: |
移动无边框窗口,不一定要用StartWindowDrag函数
procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbLeft then begin ReleaseCapture; Perform(WM_SYSCOMMAND,$F012,0); end; end;
----------------------------------------------
-
|
|