在没有标题栏的窗体中，怎样移动窗体？

Question

Uses
  Windows;type
  TForm1 = class(TForm)
  protected
    procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
  end;var
  Form1: TForm1;implementationprocedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited
  if  M.Result = htClient then
    M.Result := htCaption;
end;

Answer 1

同上。
不過我提醒一下。
以後發貼前先search一下吧。

Answer 2

呵呵,这个问题我今天才问过人,下面是人家的回答 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Form1.perform(WM_SysCommand,$F012,0);
end;