delphi实现拖动无标题窗口的5种方法
来源:互联网 发布:linux 禁止删除文件 编辑:程序博客网 时间:2024/05/29 10:09
1.MouseMove事件中加入:
// ReleaseCapture;
// Perform(WM_SYSCOMMAND, $F017 , 0);
2.MouseDown事件中加入:
// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);
// POSTMESSAGE(Self.Handle,274,61458,0);
3.MouseDown事件中加入:
// ReleaseCapture;
// Perform(WM_SYSCOMMAND, $F012, 0);
4.截获WM_NCHITTEST消息
procedure WMNCHITTEST(var Msg:TWMNCHITTEST);message WM_NCHITTEST;
procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
begin
inherited;
//Msg.Result:=HTCaption;
end;
5.
private
procedure AppMessage(var Msg:TMsg;var Handled:Boolean);
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
//(GetKeyState(vk_CONTROL) < 0)
if (Msg.message=WM_LButtonDown) and
(DefWindowProc(Handle,WM_NCHitTest,
0,GetMessagePos)=HTClient) and
(True) then
begin
SendMessage(Handle,WM_NCLButtonDown,
HTCaption,GetMessagePos);
//发送鼠标在标题栏内按下的消息
Handled:=true;
end;
end;
在MousDown事件中写
ReleaseCapture;//释放鼠标控制区域
SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);//发送移动标题栏消息
如,要在Panel上可以移动窗口
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);
end;
// ReleaseCapture;
// Perform(WM_SYSCOMMAND, $F017 , 0);
2.MouseDown事件中加入:
// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);
// POSTMESSAGE(Self.Handle,274,61458,0);
3.MouseDown事件中加入:
// ReleaseCapture;
// Perform(WM_SYSCOMMAND, $F012, 0);
4.截获WM_NCHITTEST消息
procedure WMNCHITTEST(var Msg:TWMNCHITTEST);message WM_NCHITTEST;
procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
begin
inherited;
//Msg.Result:=HTCaption;
end;
5.
private
procedure AppMessage(var Msg:TMsg;var Handled:Boolean);
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
//(GetKeyState(vk_CONTROL) < 0)
if (Msg.message=WM_LButtonDown) and
(DefWindowProc(Handle,WM_NCHitTest,
0,GetMessagePos)=HTClient) and
(True) then
begin
SendMessage(Handle,WM_NCLButtonDown,
HTCaption,GetMessagePos);
//发送鼠标在标题栏内按下的消息
Handled:=true;
end;
end;
在MousDown事件中写
ReleaseCapture;//释放鼠标控制区域
SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);//发送移动标题栏消息
如,要在Panel上可以移动窗口
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);
end;
- delphi实现拖动无标题窗口的5种方法
- 实现拖动无标题窗口的5种方法
- 三种方法实现Delphi无标题窗体的拖动
- 拖动无标题窗口的方法
- 实现无标题窗口的拖动
- MFC:拖动无标题窗口的两种方法
- MFC:拖动无标题窗口的三种方法
- 无标题窗口的拖动
- Delphi中拖动无边框窗口的5种方法
- Delphi中拖动无边框窗口的5种方法
- VC++无标题窗口以及控件拖动的方法
- VC++无标题窗口以及控件拖动的方法(修正)
- VC++无标题窗口以及控件拖动的方法(修正)
- VC++无标题窗口以及控件拖动的方法(修正)
- VC++无标题窗口以及控件拖动的方法(修正)
- VC++无标题窗口以及控件拖动的方法
- .Net 环境下实现可变大小的无标题窗口拖动
- .Net 环境下实现可变大小的无标题窗口拖动
- sublime text 2 必要的插件
- 读健力宝之路——叹
- 获取日期段里的工作日【除去 周六、日】
- jUnit 的断言
- C++之静态数据成员与静态函数的分析
- delphi实现拖动无标题窗口的5种方法
- POJ 2406 Power Strings
- B. Painting Eggs
- 如何组织大型JavaScript应用中的代码?
- android 模拟浏览器访问网络
- 我在华为的半打岁月
- PHP开发提高效率技巧
- 查看linux 下已经安装的软件包信息
- Ubuntu中deb软件包的安装方法