DelphiCode - WEBBROWSER - Копирование выделенного фрагмента

WEBBROWSER - Копирование выделенного фрагмента

Когда Вы используете компонент TWebBrowser функция "копировать" по умолчанию недоступна. Вы, конечно, можете как обычно, выделить текст и выбрать пункт "копировать" из меню, которое появляется при щелчке правой кнопкой мыши, однако фактически текст не передается в буфер обмена. Для того чтобы активизировать эту функцию Вам необходимо:

В раздел Uses поместить модуль ActiveX
в OnFormCreate добавить: OleInitialize(nil);

Создаем кнопку "Копировать"

Поместим на форму компонент TButton. В обработчике событий запишем следующий код:

procedure TForm1.Button7Click(Sender: TObject);
begin
try WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);
except end;
end;

Delphicode.org

01.03.2011