大侠们，一个有趣的问题哦。(30分)

我突然发现一个问题，就是，
南极星的那种没有标题栏也能拖动的窗体是怎么实现的了。
那位大侠能鼎立相助。小弟先谢了。

procedure WMNCHITTEST(var msg: TWMNCHITTEST); message WM_NCHITTEST;
procedure TForm1.WMNCHITTEST(var msg: TWMNCHITTEST);
var
pt: TPoint;
begin
pt := ScreenToClient(Point(msg.XPos,msg.YPos));
if(pt.y<24) then msg.Result := HTCAPTION
else msg.Result := HTCLIENT;
end;

接受答案了.