如何获取WebBrowser内的鼠标坐标 ( 积分: 100 )

PROSE · 2005-09-20

我在From内放了一个WebBrowser控件 使用getcursorpos可以得到屏幕坐标,但是到了Webbrowser内就得不到了,只能得到整个控件的边缘坐标, 代码如下: procedure TMain_Form.Panel1MouseMove(Sender: TObject; Shift: TShiftState;  X, Y: Integer);  var P :TPoint ; begin  getcursorpos(p) ;  Label5.Caption :=inttostr(p.x) +'  ， ' + inttostr(p.y) ; end; 我想得到Webbrowser上鼠标点击的具体坐标,如何做??

PROSE · 2005-09-20

我在From内放了一个WebBrowser控件 使用getcursorpos可以得到屏幕坐标,但是到了Webbrowser内就得不到了,只能得到整个控件的边缘坐标, 代码如下: procedure TMain_Form.Panel1MouseMove(Sender: TObject; Shift: TShiftState;  X, Y: Integer);  var P :TPoint ; begin  getcursorpos(p) ;  Label5.Caption :=inttostr(p.x) +'  ， ' + inttostr(p.y) ; end; 我想得到Webbrowser上鼠标点击的具体坐标,如何做??

chenybin · 2005-09-20

关键是你想做什么，如果是点击里面的东西比较好处理。 一般控件里面都有个类似ClientToScreen这样的方法

apacheii · 2005-09-21

用javascript可以得到，你在网页里写上script，再想办法传出来

PROSE · 2005-09-21

我只想记录鼠标在Webbrowser内的位置。 所以只能先取相对屏幕，或者Panel的坐标，在计算了

hs-kill · 2005-09-21

实现HTMLDocumentEvents2就能截获这些消息，从以前找到的： satanmonkey (2003-07-10 9:47:00)   首先找一个类实现IDispatch接口 就叫classA吧。 其次得到TWebBrowser的IWebBrowser接口 IE := WebBrowser1 as IWebbrowser2; 然后 InterfaceConnect(IE, HTMLDocumentEvents2, classA, FConnection); 在classA的Invoke函数里 就可以截获很多事件，包括  HTMLDocumentEvents2 = dispinterface    ['{3050F613-98B5-11CF-BB82-00AA00BDCE0B}']    function  onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid -2147418102;    function  onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid -600;    function  ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid -601;    procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid -602;    procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid -604;    function  onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid -603;    procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid -605;    procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid -606;    procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid -607;    procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid -2147418103;    procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid -2147418104;    procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid -609;    function  onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid -2147418108;    procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid -2147418107;    function  onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid -2147418106;    procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid -2147418105;    function  ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid -2147418101;    function  onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid -2147418100;    function  onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid -2147418099;    function  oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;    function  onstop(const pEvtObj: IHTMLEventObj): WordBool; dispid 1026;    procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid -2147418080;    procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid -2147418079;    procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid -2147418078;    procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid -2147418093;    procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid -2147418098;    procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid -2147418097;    procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid -2147418096;    procedure onbeforeeditfocus(const pEvtObj: IHTMLEventObj); dispid 1027;  end; 具体怎么实现，参考BHO方面的内容，本方法应该是可行的，只是我没具体做过。在BHO里倒是做过。 另外你去http://www.euromind.com/iedelphi/index.htm看看，对你有帮助 不过我还没弄明白怎么搞出来。。。。。下午再试试

PROSE · 2005-09-21

有没有简单点的方法？

vvyang · 2005-09-23

WebBrowser 的消息都发到 Application 去了。加一个 ApplicationEvents 控件，在 OnMessage 中写： procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean); var  p: TPoint; begin  if Msg.message = WM_MOUSEMOVE then  begin    p := ScreenToClient(Msg.pt);    Label5.Caption := Inttostr(p.x) + ', ' + Inttostr(p.y);  end;  {如果要取得 WebBrowser 的点击坐标，这么写：  if (Msg.hwnd = WebBrowser1.Handle) and (Msg.message = WM_LBUTTONDOWN) then  begin    p := ScreenToClient(Msg.pt);    ShowMessage(Inttostr(p.x) + ', ' + Inttostr(p.y));  end;} end; 不知道这个算不算简单。

hs-kill · 2005-09-23

嘿嘿，不简单楼上的代码如果webbrowser打开了一个网页就无法获得消息了，你可以试试 这是个取巧的办法 看看我这个吧，和楼上的一样，不过在打开网页后也能获得坐标，刚试完： procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean); var  p: TPoint; begin  if IsChild(WebBrowser1.Handle, Msg.Hwnd) then    //关键是这个    begin    p := webbrowser1.ScreenToClient(Msg.pt);    if Msg.message = WM_MOUSEMOVE then      Label4.Caption := Inttostr(p.x) + ', ' + Inttostr(p.y)    else if Msg.message = WM_LBUTTONDOWN then      label5.Caption:=Inttostr(p.x) + ', ' + Inttostr(p.y);    end; end; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://www.163.com'); end;

chenybin · 2005-09-25

楼上几位的方法不错，不过结果是错的，因为那个位置是form的坐标，不是网页的坐标 我的想法是能不能利用window对象的event。还没有试验成功，在hs的基础上改的 if msg.message = wm_mousemove then begin        if WebBrowser1.Document <> nil then begin            win:=IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow);            IHTMLWindow2(WebBrowser1.Document).focus ;            if Assigned(win.event) then                Label1.Caption := Inttostr(win.event.x) + ', ' + Inttostr(win.event.y) ;        end;       end; 其中 var  win :IHTMLWindow2;

hs-kill · 2005-09-25

我试过的，是webbrowser的坐标啊，难道你指的网页坐标是指相对整个页面的？ 那估计只能用HTMLDocumentEvents2 来实现了。。。。

PROSE · 2005-09-25

是webbrowser的坐标,但是鼠标左键点击是整个Form的点击都截获了，能不能只截获Webbrowser的区域的鼠标点击

hs-kill · 2005-09-25

.......我上面发的帖子里的东西你试了没？？？！！！ 这个只获取webbrowser的点击！！！ procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean); var  p: TPoint; begin  if IsChild(WebBrowser1.Handle, Msg.Hwnd) then    //关键是这个    begin    p := webbrowser1.ScreenToClient(Msg.pt);    if Msg.message = WM_MOUSEMOVE then      Label4.Caption := Inttostr(p.x) + ', ' + Inttostr(p.y)    else if Msg.message = WM_LBUTTONDOWN then      label5.Caption:=Inttostr(p.x) + ', ' + Inttostr(p.y);    end; end;

如何获取WebBrowser内的鼠标坐标 ( 积分: 100 )

PROSE

Unregistered / Unconfirmed

PROSE

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

apacheii

Unregistered / Unconfirmed

PROSE

Unregistered / Unconfirmed

hs-kill

Unregistered / Unconfirmed

PROSE

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

hs-kill

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

hs-kill

Unregistered / Unconfirmed

PROSE

Unregistered / Unconfirmed

hs-kill

Unregistered / Unconfirmed

Similar threads