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 公历转农历函数

Delphi返回一个汉字的unicode编码

dll 的静态调用实例代码

Delphi 如何编写使stringgrid中的一列具有check功能，和checkbox效果一样

Delphi 限制form窗体为固定的大小

Delphi判断文件夹（目录）是否存在，不存在就创建一个

Delphi文件监视主单元文件

Delphi自动适应屏幕分辨率的属性

Delphi 2010/xe下隐藏程序在系统任务栏的图标

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

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

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