form设置为可移动

当form的border style为bsnone时，form页面不可以移动即鼠标禁用。

以下可以解除禁用.

 

procedure TForm5.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, $F012, 0);
end;