如何移动没有标题的窗体
2000-08-18 12:49
260 查看
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;
并且这种方法比上一种更灵活许多。
* "欺骗"系统,让他认为点中的是窗体的标题行:在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;
并且这种方法比上一种更灵活许多。
相关文章推荐
- 如何移动没有标题的窗体
- 如何在没有标题栏的情况下移动窗体
- 移动没有标题栏的窗体
- 如何移动无标题栏的窗体
- [导入]移动没有标题的窗体
- 如何实现浮动没有标题的窗体
- 移动没有标题的窗体
- .net 下移动无标题栏窗体的几种方法
- 【开源项目】花密(Flower Password)VB版之移动无标题窗体模块
- 如何在MAC机器中实现移动设备WiFI上网(没有专门的无线路由器的情况)
- C#移动无标题栏窗体的四种代码
- [C#]使用Label标签控件模拟窗体标题的移动及窗体颜色不断变换
- C#移动无标题窗体
- 制作没有边框的窗体,并可移动
- 【原创】如何实现无标题栏窗体的点击任务栏最小化功能
- [Mac OS X Cocoa编程]如何获取其他应用程序的窗体标题以及相关信息?
- 在DELPHI中实现无标题窗体的移动最简单的方法
- Delphi如何实现无边框窗体的移动
- 无标题栏窗体移动
- 移动无标题(边框)窗体