加一个 ApplicationEvents,
写事件代码,
如下是一个点右键得到坐标的处理过程代码示范，
自己变通下，mouse move的时候判断后控制下坐标，
进入禁区则移出：
procedure TmyForm.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
ovText : OLEVariant;
MousePos: TPoint;
// ActiveEL ,
el : IHTMLElement;
begin
if not MouseTrap then exit;
if msg.message = WM_RBUTTONDOWN then
begin
MousePos.X := LOWORD(msg.lParam);
Mousepos.Y := HIWORD(msg.lParam);
memo2.lines.add('Mouse Click! x='+inttostr(MousePos.X)+' , y='+inttostr(MousePos.y) ) ;
el := doc.elementFromPoint(MousePos.x, MousePos.y);
。
。
。
Handled:=true;
MouseTrap := false;
end;
end;
