Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Выделить текст в WebBrowser

5.1K
11 марта 2007 года
saturn61
108 / / 25.10.2006
Всем привет)
На форме есть Веббраузер, Едит и кнопка. Необходимо выделить в Веббраузере текст, который находится в Едите. Т.е. по сюти будет чтото типа поисковика.
Кто нить, скажите как эт сделать, а то чёт не получается ниче((
26K
11 марта 2007 года
Gh0stik
10 / / 06.03.2007
Вот смотрите код, если что не ясно будем разжевывать...
Код:
{....}

  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;


Да чуть не забыл примерчик взят с Delphi World (http://delphiworld.narod.ru/) - советую заглянуть на досуге...:cool:
5.1K
11 марта 2007 года
saturn61
108 / / 25.10.2006
Не, не работает. Оно все выделяет, даже не выделяет, а просто цвет меняет.
А как кстати статья называлась?

P.S. Я вот думаю может через сообщения сделать, типа нажата шифт и скоко то раз курсор влево, обязано будет выделиться))))

Надо сделать чтото на подобии, "Найти на странице" как в Опере в левом верхнем углу.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог