delphi 无标题栏窗口点任意地方移动窗体
2014-01-27 14:37
288 查看
procedure MoveSelf;
begin
if form1.Active then
begin
ReleaseCapture;
SendMessage(form1.Handle,WM_SYSCOMMAND,SC_MOVE or HTCAPTION,0);
end;
end;
在做登录窗口时一般都是无标题栏,窗口不能被鼠标拖动, 上面的过程可以拖动窗体,结合application.onmessage可时间点任何地方移动窗体
begin
if form1.Active then
begin
ReleaseCapture;
SendMessage(form1.Handle,WM_SYSCOMMAND,SC_MOVE or HTCAPTION,0);
end;
end;
在做登录窗口时一般都是无标题栏,窗口不能被鼠标拖动, 上面的过程可以拖动窗体,结合application.onmessage可时间点任何地方移动窗体
相关文章推荐
- 在DELPHI中实现无标题窗体的移动最简单的方法
- 简单的无标题窗口移动技巧(delphi)
- 在DELPHI中实现无标题窗体的移动最简单的方法
- 用C#做一个悬浮窗口[含三种移动无标题窗体的办法]
- delphi 无标题栏时,窗体跟随其他控件移动的方法
- delphi技巧——移动无标题窗口
- Mac开发,选中窗口任意地方,可移动窗口。
- C# 移动窗口 适用于有标题栏和无标题栏窗体 超级简单版
- 移动无标题窗口(delphi)
- C# 移动窗口 适用于有标题栏和无标题栏窗体 超级简单版
- delphi技巧——移动无标题窗口
- Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
- Winform无标题窗体移动方法
- VC/MFC拖动窗口任意位置移动窗口
- [C#]使用Label标签控件模拟窗体标题的移动及窗体颜色不断变换
- [导入]移动没有标题的窗体
- 无标题窗口的移动
- C#鼠标按住标题移动时移动窗体
- 移动没有标题栏的窗体
- 移动无标题栏窗口