如何移动没有标题的窗体
2004-12-20 11:01
330 查看
★、如何移动没有标题的窗体
△"欺骗"系统,让他认为点中的是窗体的标题行:在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;
并且这种方法比上一种更灵活许多。
△"欺骗"系统,让他认为点中的是窗体的标题行:在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;
并且这种方法比上一种更灵活许多。
相关文章推荐
- 如何移动没有标题的窗体
- 如何在没有标题栏的情况下移动窗体
- 如何移动无标题栏的窗体
- 如何实现浮动没有标题的窗体
- 移动没有标题栏的窗体
- 移动没有标题的窗体
- [导入]移动没有标题的窗体
- C# 移动窗口 适用于有标题栏和无标题栏窗体 超级简单版
- 如何获得对窗体移动事件的处理的一个方法
- .net 下移动无标题栏窗体的几种方法
- VC中如何将MDI的多个子窗体设置为不同的标题
- 如何让GridView控件在绑定的数据源没有数据时也显示标题
- Delphi如何实现无边框窗体的移动
- vb6如何在任务栏中显MDI子体窗体的标题
- 用C#做一个悬浮窗口[含三种移动无标题窗体的办法]
- Winform无标题窗体移动方法
- [Mac OS X Cocoa编程]如何获取其他应用程序的窗体标题以及相关信息?
- 如何在MAC机器中实现移动设备WiFI上网(没有专门的无线路由器的情况)
- C#鼠标按住标题移动时移动窗体
- 如何让GridView控件在绑定的数据源没有数据时也显示标题