在运行时移动控件
![291826164153474.gif](https://i-blog.csdnimg.cn/blog_migrate/ac0b38dfa55582e46c5a7e28c33ed863.gif)
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
Begin
ReleaseCapture;
Button1.perform(WM_SysCommand, SC_DragMove, 0);
End;
end;