请问这个问题？？？

Question

private
   procedure wmnchittest(var msg:twmnchittest);
message wm_nchittest;procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;

Answer 1

你还可以设置区域
procedure TForm1.wmnchittest(var msg:twmnchittest);
var
    Point :TPoint ;
begin
    inherited ;
    Point.X := Msg.XPos ;
    Point.Y := Msg.YPos ;
    Windows.Screentoclient(Handle ,Point) ;
    if (htclient = msg.result)
       and (Point.Y in [0..20]) then
        msg.Result := htcaption ;
end ;