Копирование текста(в буфер) в WebBrowser

← →
ultracrash © (2004-04-21 14:31) [0]

Уважаемые МАСТЕРА, как можно сделать, что бы в моем веб-браузере, при выделении текста, нажатии правой кнопки мыши(появлении окна копирование)можно было бы занести выделенный текс в буфер.
Если можно то киньте сам код.....

← →
easy © (2004-04-21 14:50) [1]

uses ActiveX; ... procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.OleObject.document.selection.createRange().execCommand("Copy"); end; initialization OleInitialize(nil); finalization OleUninitialize;

← →
Piter © (2004-04-21 19:24) [2]

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

initialization
OleInitialize(nil);

finalization
OleUninitialize;

А вот причем здесь

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.selection.createRange().execCommand("Copy");
end;

?

← →
Ultracrash © (2004-04-22 01:57) [3]

РЕбят все работает.
ОГРОМНОЕ СПАСИБО

← →
evgeniy_pro (2004-05-13 15:50) [4]

procedure...

var vInput, vOutput: OleVariant;
begin
//копирует в буфер
WebBrowser1.ExecWB(OLECMDID_COPY, 0, vInput, vOutput);
end;

правда сначала надо что-нибудь выделить :)

← →
evgeniy_pro (2004-05-13 15:50) [5]

Удалено модератором
Примечание: Дубль...

← →
evgeniy_pro (2004-05-13 15:50) [6]

Удалено модератором
Примечание: Дубль...

Копирование текста(в буфер) в WebBrowser Найти похожие ветки