Delphi 中根据鼠标位置获取网页元素 - IDC资讯网_站长学院 - Java PHP Flex Python Ajax CSS 编程 开源 学习 总结 分享
根据鼠标位置获取网页元素,主要是对 IHTMLDocument2 方法 elementFromPoint 的使用


with TWebBrowserWithUI(Sender) do
  begin
    pt := Mouse.CursorPos;
    pt := ScreenToClient(pt);
    if PtInRect(Rect(Left, Top, Left + Width, Top + Height), pt) then
      try
        elem := nil;
        elem := (Document as IHTMLDocument2).elementFromPoint(pt.X, pt.Y);
        if (elem <> nil) and ((elem.tagName = 'A') or (elem.tagName = 'IMG'))
          then
        begin
          url := elem.getAttribute('href', 0);
          CreateSheet(url);
        end;
      except
        on E: Exception do
          ShowMessage(e.Message);
      end;
  end;
  Cancel := True;
 
编程语言 | 评论(0) | 引用(0) | 阅读(6450)