在delphi中怎样拖动无标题栏的窗口？

Question

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

Answer 1

//用消息这是机工版,开发指南中的unit MainFrm;interfaceuses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TMainForm = class(TForm)
  private
    { Private declarations }
  protected
    // Capture the WM_NCHITTEST message to enable moving the form.
    procedure WMNCHitTest(var Message: TWMNCHitTest);  message WM_NCHITTEST;
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;var
  MainForm: TMainForm;implementation{$R *.DFM}procedure TMainForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
  Message.Result := HTCAPTION;
end;procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;end.

Answer 2

Delphi5开发人员指南中有吗?我有这本书，在哪一页啊？

Answer 3

xueyin(雪莹)的方法可以用，
但是Zheast(zheast)的办法却有点问题呢。

Answer 4

xueyin的办法会屏蔽OnMouseClick事件，这应该怎么办啊？