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

Оно?

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

initialization
OleInitialize(nil);

finalization
OleUninitialize;

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

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

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;

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