谁知道如何实现拖动button，就能拖动整个form移动？

Question

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  releasecapture;
  perform(WM_SYSCOMMAND,$f012,0);
end;//这样做的话，Button1的Click事件就不要运行了。
procedure TForm1.Button1Click(Sender: TObject);
begin
  SHowMessage('ok');
end;

Answer 1

截获WM_NCHITTEST消息
利用msg.Result := htCaption移动窗体

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  SHowMessage('ok');
end;procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    releasecapture;
    perform(WM_SYSCOMMAND,$f012,0);
  end;
end;