Главная страницаОбратная связьКарта сайта

Получение выделенного текста из компонента TWebBrowser

Автор: Dimka Maslov
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение выделенного текста из компонента TWebBrowser

Зависимости: OleCtrls, SHDocVw, MSHTML, Variants (для Delphi 6+)
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        30 января 2003 г.
***************************************************** }

function GetBrowserSelection(WB: TWebBrowser): string;
var
  Doc: Variant;
begin
  if WB.Document <> nil then
  begin
    Doc := WB.Document;
    try
      Result := Doc.Selection.createRange.Text
    finally
      Doc := Unassigned;
    end;
  end
  else
    Result := "";
end;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Получение выделенного текста из компонента TWebBrowser", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2023 Дискета.info