delphi中 panel如何在Form实现鼠标移动拖放

最新推荐文章于 2024-07-11 15:26:39 发布

zxm8513

最新推荐文章于 2024-07-11 15:26:39 发布

阅读量1.2k

点赞数

分类专栏： DelphiXE相关技术文章标签：硬件工程硬件架构 c++

本文链接：https://blog.csdn.net/zxm8513/article/details/121391424

版权

DelphiXE相关技术专栏收录该内容

137 篇文章 18 订阅 ¥19.90 ¥99.00

订阅专栏

超级会员免费看

本文介绍了在Delphi中如何通过处理Panel的MouseDown事件来实现鼠标移动和拖放功能。通过ReleaseCapture和SendMessage函数，可以分别实现Panel的移动和大小调整。此外，还提及了SendMessage在窗体拖动等其他场景的应用。

摘要由CSDN通过智能技术生成

在 Panel的 MouseDown事件

如果需要移动就写上

ReleaseCapture;

SendMessage(Panel1.Handle,wm_SysCommand,$F012,0);

也可以写在父窗口上；

procedure TFrameDspMode1.PTheadMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   SendMessage(Ptool.Handle,wm_SysCommand,$F012,0);
end;

改变大小就写上

ReleaseCapture;

SendMessage(Panel1.Handle,wm_SysCommand,$F008,0);

拖动窗体可以这么写

procedure TForm.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle,WM_SYSCOMMAND,$f012,0);
end;

其实这个SendMessage还有很多奇妙的用途：

比如：