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

← →
Sergio77 (2006-07-13 14:54) [0]

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

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

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

← →
Gero © (2006-07-14 00:07) [1]

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

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

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

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