在delphi中实现控件的拖拽

Posted 2020-06-13

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

 

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;