如何移动没有标题的窗体

1、如何移动没有标题的窗体 * "欺骗"系统,让他认为点中的是窗体的标题行:在FORM的Private定义中作如下声明: procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; 函数的实现: procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin inherited; if M.Result = htClient then M.Result := htCaption; end; ** 更为简单的方法是这样的:在窗体(或其他可视控件)的onMouseMove事件里添加这样的语句: if (ssleft in Shift) then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0); end; 并且这种方法比上一种更灵活许多。
  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

打赏
文章很值,打赏犒劳作者一下
相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页

打赏

keboy

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值