delphi中实现控件的拖拽

本文整理自网络，侵删。

 提示：可以添加一个布尔来控制可否拖动的状态，这里提供所有都能拖动的方法。


1 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
2   Shift: TShiftState; X, Y: Integer);
3 begin
4   ReleaseCapture;
5   SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
6 end;
 

相关阅读 >>

Delphi 调用外部程序获取程序id，并能关闭该程序

Delphi string.parse

Delphi 取得和设置当前系统的短日期格式

Delphi 侧边栏隐藏窗体

Delphi byte数组根据utf8 转换为string

Delphi 窗体不可用

Delphi 在电脑屏幕上显示图片

Delphi xe 安卓 memo设置字体颜色

Delphi的idhttp报508 loop detected错误的原因

Delphi windows 编程[1] - 窗体生成的过程一

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi中实现控件的拖拽