如和让鼠标在一定范围内失灵 (5分)

我只有五分了 抱歉

什么意思,是让它隐藏吗?

procedure WMNChitText(var Message TWMNCHitTEst);message wm_hchittest
var
p:TPoint;
begin
p:=Point(Message.xpos,Message.ypos);
if ptInRect(p,r) then
begin
message.result:=HTNOWHERE;
//全部失灵
end;
inherited;
end;

给jiangtao加分，心里不是滋味，
不过...