实现可拖动的按钮

[hasgone]

请问怎样实现可以拖动的按钮？
用处理WM_MOUSEMOVE 或 WM_TIMER 的方法效果不好，
有没有更好的方法？

[xixuemao]

在button的mousedown事件里：

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
(Sender as TButton).Perform(WM_SysCommand, $f012, 0);
end;