如何移动没有标题的窗体

页面导航:首页 > 软件编程 > Delphi > 如何移动没有标题的窗体

如何移动没有标题的窗体

来源: 作者: 时间:2016-02-05 11:47 【

1、如何移动没有标题的窗体 * "欺骗"系统,让他认为点中的是窗体的标题行:在FORM的Private定义中作如下声明: procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; 函数的实现: procedure
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; 并且这种方法比上一种更灵活许多。
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <