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

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

Копирование текста(в буфер) в WebBrowser [D6, WinXP]

ultracrash ©   (2004-04-21 14:31:00) 

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

---

evgeniy_pro   (2004-05-13 15:50:00) [1]

procedure...

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

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

---

evgeniy_pro   (2004-05-13 15:50:00) [2]

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

---

evgeniy_pro   (2004-05-13 15:50:00) [3]

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

---

Ultracrash   (2004-04-22 01:57:00) [4]

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

---

Piter   (2004-04-21 19:24:00) [5]

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

initialization
OleInitialize(nil);

finalization
OleUninitialize;

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

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

?

---

easy   (2004-04-21 14:50:00) [6]

uses ActiveX;

...

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

initialization
 OleInitialize(nil);

finalization
 OleUninitialize;

---

Наверх