5,387
社区成员
发帖
与我相关
我的任务
分享
procedure TfrmNewSystem.N1UserNameClick(Sender: TObject);
var
doc: mshtml.IHTMLDocument2;
select: mshtml.IHTMLTxtRange;
currHtmlElement: mshtml.IHTMLElement;
begin
doc := self.WebBrowser1.Document as mshtml.IHTMLDocument2;
// GetCursorPos(mPoint);
// mPoint := ScreenToClient(mPoint);
// currHtmlElement := doc.elementFromPoint(mPoint.X-WebBrowser1.Left,
// mPoint.Y-WebBrowser1.Top);
// Memo1.Text := 'title:' + doc.title + 'cookie:' + doc.cookie + 'attribute:' +
// currHtmlElement.getAttribute('id', 0) + 'html: ' + currHtmlElement.innerText;
end;