控件拖动时的问题

[JassonYe]

我现在做了一个button控件能随意拖动，可是为什么它连onclick事件都不响应了
这就是代码：
ReleaseCapture;
SendMessage(button1.Handle, WM_SYSCOMMAND, $f019, 0);

[JassonYe]

有人知道吗?

[haomao]

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