delphi窗口移动问题

Question

如何移动borderStyle=BsNone的 窗口,要效果和原窗口移动差别不大

Answer 1

在窗体的OnMouseDown事件里加入 
 if Button = mbLeft then
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, $F012, 0);
  end;

Answer 2

if Button = mbLeft then                  //如果按了左键
  begin
  ReleaseCapture;                        //那么我们移动窗口吧。
  Perform(WM_SYSCOMMAND, $F012, 0);
  end;

Answer 3

同2楼procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssleft in Shift) then
  begin
    ReleaseCapture; 
    Perform(WM_syscommand, $F012, 0);
  end;
end;