Найти и выделить текст в TWebBrowser? |
Previous Top Next |
Code: |
{....}
private procedure SearchAndHighlightText(aText: string);
{....}
procedure TForm1.SearchAndHighlightText(aText: string); var i: Integer; begin for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do begin if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then begin WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00'; WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True); end; end; end;
procedure TForm1.Button1Click(Sender: TObject); begin SearchAndHighlightText('some text...'); end; |
©Drkb::03462
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php