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

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

TWebBrowser + Enter [D6, WinME]

SergP ©   (2004-06-05 21:41:00) 

В TWebBrowser не работает Enter в полях типа TEXTAREA.

Как лечить?

---

Ломброзо   (2004-06-05 23:45:00) [1]

А дальше чего же не посмотрел?

if FOleInPlaceActiveObject <> nil then
     if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and
        ((Msg.wParam = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam = VK_RIGHT)) then
       //nothing - do not pass on Backspace, Left or Right arrows
     else
        FOleInPlaceActiveObject.TranslateAccelerator(Msg); end;

---

SergP   (2004-06-05 23:35:00) [2]

После того как сделал:

initialization
 OleInitialize(nil);

finalization
 OleUninitialize;

копирование и вставка заработали нормально. А Enter все равно не работает...

---

Ломброзо   (2004-06-05 22:21:00) [3]

http://delphiworld.narod.ru/base/cut_copy_in_webbrowser.html

Оно?

---

SergP   (2004-06-05 21:51:00) [4]

Shift+Enter тоже не работает. default-кнопок нет. Но TWebBrowser'ы создаются в runtime. Вроде бы где-то читал про такую проблему, но уже не помню где... Просто в тот момент это меня не интересовало. А вот сейчас понадобилось...

---

Ломброзо   (2004-06-05 21:44:00) [5]

Shift+Enter работает?
Кнопки Default на форме есть?

---

Наверх