1,593
社区成员
发帖
与我相关
我的任务
分享
var
TxtRange: IHTMLTxtRange;
begin
if not Assigned(WebBrowser1.Document) then Exit;
TxtRange:=(WebBrowser1.Document as IHTMLdocument2).selection.createRange as IHTMLTxtRange;
TxtRange.setEndPoint('StartToEnd', TxtRange);
try
if not TxtRange.findText('新闻', 1, 0) then
begin
ShowMessage( '没找到! ');
Exit;
end;
TxtRange.select;
TxtRange.setEndPoint('StartToEnd', TxtRange);
except
end;
end;