Скачать: CL | DM;

TWebBrowser + Enter   Найти похожие ветки 

← →
SergP ©   (2004-06-05 21:41) [0]

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

Как лечить?

---

← →
Ломброзо ©   (2004-06-05 21:44) [1]

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

---

← →
SergP ©   (2004-06-05 21:51) [2]

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

---

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

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

Оно?

---

← →
SergP ©   (2004-06-05 23:35) [4]

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

initialization
 OleInitialize(nil);

finalization
 OleUninitialize;

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

---

← →
Ломброзо ©   (2004-06-05 23:45) [5]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c