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 将自己的app.ico应用程序图表添加到dephi资源文件res中

Delphi spcomm的一些用法注意

Delphi关于小数位精度的问题

Delphi comobj调用wmplayer播放音乐

Delphi mscomm控件串口收发程序

Delphi 如何获取窗口的图标

Delphi如何生成一段时间内的所有日期

Delphi 安卓动态申请权限清单类

Delphi在桌面上显示文字代码

Delphi 提取标签之间的字符串（重复标签）

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

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