Недавно ученые создали холодильник с возможностью доступа в Интернет для заказа продуктов, но проклятая железяка лазает исключительно по порносайтам и заказывает только огурцы и бананы.
{....}privateprocedure SearchAndHighlightText(aText: string);
{....}procedure TForm1.SearchAndHighlightText(aText: string);
var
i: Integer;
beginfor i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 dobeginif Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 thenbegin
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;
Статья Найти и подсветить текст в WEBBrowser раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.