就是下面的代码，我现给Form加了个Align=alClient的Panel，就无法拖动了，怎么办？(100分)

private
{ Private declarations }
procedure WMNCHitTest(var M:TWMNCHitTest);Message wm_NCHitTest;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMNCHitTest(var M:TWMNCHitTest);
begin
inherited;
if M.Result=htClient then
M.Result:=htCaption;
end;

private
iX,iY : integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
iX:=x; //记录鼠标原来的坐标值
iY:=y;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If ssleft in shift then //按下鼠标左键拖动
begin
self.left:=self.left+x-iX;
self.top:=self.top+y-iY;
end;
end;

[][]大侠就是大侠!高手就是高手!!佩服佩服!!!

笑我了。
我只是菜鸟。