Текущий архив: 2004.08.08;
Скачать: 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 вся ветка
Текущий архив: 2004.08.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.036 c
