Delphi实现无边框窗体的移动

将窗体的 BorderStyle 设置为 bsNone，窗体的标题栏就不会显示，此时，如果想移动窗体，方法如下：

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture; 
  PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;