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

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

WebBroser не дает таскать текст в режиме редактирования [Delphi, Windows]

Tack ©   (2005-08-04 19:27:00) 

Перевожу браузер в режим редактирования вот так:

var
Disp: IDispatch;
Editor: IHTMLDocument2;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('about:<html><body></body></html>');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurrentWB: IWebBrowser;
begin
Disp := pDisp;
CurrentWB := Disp as IWebBrowser;
editor := (CurrentWB.Document as IHTMLDocument2);
editor.DesignMode := 'On';
end;

Потом после запуска программы ввожу в браузер текст, добавляю картинки, выделяю, делаю текст жирным/наклонным/подчеркнутым (Ctrl+B, +I, +U) - никаких проблем.

Но ни вырезать из браузера текст, ни скопировать его, ни перетащить мышкой - не получается. Я смотрел в MSDN различные опции MSHTML - ничего на этот счет не сказано.

ПРОБЛЕМА РЕШАЕТСЯ, если на форму кинуть TRichEdit (можно сделать невидимым RichEdit1.Visible := False) и вся положенная функциональность появляется!

Теперь прошу объяснить, что такого делает компонент RichEdit при инициализации, что влияет на функциональность MSHTML редактора?

Мне подсказали тут, что может надо COM правильно инициализировать — вызывал CoInitialize/CoUninitialize — без толку. Подскажите, пожалуйста, а то exe-файл раздувается из-за этого безхозного RichEdit.

---

Tack   (2005-08-05 09:39:00) [1]

Спасибо!!!!!

теперь понятно.
Явный вызов OleInitialize(nil) в разделе инициализации есть только в модулях ShellCtrls, OleAuto, OleCtnrs, а модуль SHDocVw, где находится TWebBrowser, ни одного из них не вызывает, в отличие от ComCtrlsс компонентом RichEdit.  

Подписал OleInitialize(nil) в инициализацию - все функции редактирования теперь работают в TWebBrowser.

Выдержка из MSDN:
Applications that use the following functionality must call OleInitialize() before calling any other function in the COM library:

-Clipboard
-Drag and drop (! вот оно !)
-Object linking and embedding (OLE)
-In-place activation

---

k2   (2005-08-05 04:46:00) [2]

не знаю што уж делает RichEdit, наверное што-то ужасное :)
но если вместо вызовов CoInitialize/CoUninitialize использовать
OleInitialize/OleUninitialize, то проблемка успешно исчезает

---

Наверх