Witam... Szukam sposobu na wyszukanie słowa w komponencie TWEBBROWSER oraz na skopiowanie do schowka słowa następującego po wyszukanym. Doszedłem do znalezienia sposobu na podświetlenie szukanego słowa. Proszę o pomoc :)
procedure TForm1.WBLocateHighlight(WB: TWebBrowser; Text: string);
const
prefix = '';
suffix = '';
var
tr: IHTMLTxtRange;
begin
if Assigned(WB.Document) then
begin
tr := ((wb.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
while tr.findText(Text, 1, 0) do
begin
tr.pasteHTML(prefix + tr.htmlText) ;
tr.scrollIntoView(True) ;
end;
end;
end;