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 判断上午还是下午

Delphixe firemonkey 如何画图

Delphi firedac tfddatamove 导出csv

Delphi2007在win7系统下的日期问题

Delphi 读取内存

Delphi发送邮件函数

Delphi的tclientsocket组件和tserversocket组件(c/s)说明

Delphi idhttp下载html的代码(含错误处理)

Delphi strtohexstr 字符串转换hex

Delphi 让"显示桌面"功能对你的窗口无效

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

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