| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

twebbrowser - получить выделенный текст

Sergio77 ©   (2006-07-13 14:54:00) 

Добрый день, мастера!
в инете нашел такую функцию:
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;

но она не работает в некторых случаях
(наверное это связано с фреймами, не знаю, я новичек в этом)

как мне скопировать выделенный текст из любого строения страницы (документа)

---

Kray   (2006-07-14 15:06:00) [1]

ИМХО. Структура документа сложная. Всех хуже у меня получалось работать с надписями. Поэтому не всегда возможно получается извлечь результат.

Doc.Selection.createRange.Text
особенно не нравится  createRange. может просто Range?

---

Gero   (2006-07-14 00:07:00) [2]

Попробуй execCommand('Copy')

---

Наверх