鼠标拖动窗体
2014-09-17 23:37
190 查看
1.鼠标在客户区拖动窗口
重载消息函数 procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited; //不可缺少
if (=Message.Result = HTCLIENT) then
Message.Result := HTCAPTION;
end;
2.鼠标在 Panel 上拖动窗口
在 Panel 的 OnMouseMove 事件中写入下代码:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;
重载消息函数 procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited; //不可缺少
if (=Message.Result = HTCLIENT) then
Message.Result := HTCAPTION;
end;
2.鼠标在 Panel 上拖动窗口
在 Panel 的 OnMouseMove 事件中写入下代码:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;
相关文章推荐
- 鼠标可拖动窗体
- C# WinForm 鼠标左键拖动窗体
- mousearea主要用于响应鼠标的操作,在这里我们要实现的是窗体的拖动
- C#无标题栏窗体鼠标拖动
- 在Window工作区按下鼠标左键拖动窗体
- 用鼠标拖动窗体的客户区就可以了
- 设置窗体可以使用鼠标拖动大小 通过
- WPF 窗体中的 Canvas 限定范围拖动 鼠标滚轴改变大小
- C#无标题栏窗体鼠标拖动
- MFC无边框的窗体实现用鼠标拖动窗体边缘实现窗体大小变化
- winform 在mdi窗口重绘界面时,mdi挡住主窗体,导致鼠标拖动缩放窗体大小失效的解决方法随笔
- 通过鼠标任意拖动.NET Winform窗体中的控件
- C#无标题栏窗体鼠标拖动
- Winform 鼠标拖动窗体
- C#基础系列:开发自己的窗体设计器(在容器上拖动鼠标增加控件)
- Winform窗体图片的拖动,放大,缩小,复位,打印预览,鼠标滑轮的放大缩小
- 让鼠标拖动WinForm窗体
- 当winform窗体的Bordestyle设置为None时,鼠标可以拖动窗体的办法
- C#无标题栏窗体鼠标拖动
- C#中利用"消息处理"实现在窗体中按下鼠标左键拖动窗体_L