我使用了winamp那样的拖动客户窗体代码，但窗体上的按钮事件却无响应了！

Question

我使用了winamp那样的拖动客户窗体代码，但窗体上的按钮都不能点击了
代码如下
procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST;procedure tform1.WMNCHitTest(var Msg:TWMNCHitTest);
begin
DefaultHandler(Msg);
if Msg.Result = HTCLIENT then
Msg.Result:= HTCAPTION;
end;但窗体上的按钮事件却无响应了！救命呀！

Answer 1

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