PerformCTRLS() 使用任意组件拖动窗体

{使用任意组件拖动窗体}
// PerformCTRLS(Form1,Button);
//放在控件的 MouseDown事件下
procedure PerformCTRLS(Form:TForm;Button: TMouseButton);
begin
  if Button=mbLeft then
  begin
    ReleaseCapture;
    Form.Perform(wm_syscommand,$F012,0);
  end;
end;