Люди-человеки , помогите!!! Как сделать так, чтобы WebBrowser с загруженным документом реагировал на события OnKeyDown, OnMouseOver и т.д. .Я делаю это перехватывая сообщение WM_ONKEYDOWN , но мне это не нравится

А чем не нравится-то?
Вообще для полноценного контроля над TWebBrowser без ApplicationEvents.OnMessage не обойтись. Особенности, блин, реализации. Какие есть конкретные проблемы?

Во-первых не знаю как ловить сочетания клавиш. А во вторых слышал , что можно подключиться к объектной модели DHTML, но не знаю как

Цитата(Gorinich @ 18.10.2005, 14:21)

Во-первых не знаю как ловить сочетания клавиш.

Существует ряд вариантов, половина из них подходит для работы с TWebBrowser. Часа через 4 выложу свой механизм отлова, он довольно хорошо отлажен.

Цитата(Gorinich @ 18.10.2005, 14:21)

А во вторых слышал , что можно подключиться к объектной модели DHTML, но не знаю как

Это меня тоже интересует, но исследовать данный вопрос ручки не дошли Может, поищешь в инете?

Я делаю так...

Код

procedure TMainForm.ApplicationEvents1ShortCut(var Msg: TWMKey;   var Handled: Boolean); begin if ShowingModalDialog then exit;  //ShowingModalDialog - it's my variable, its goal should be obvious :) if (Msg.KeyData and $40000000)>0 then exit;  //key up! if (Msg.KeyData and $FFFF)>1 then exit;  //not the first press! if MSg.CharCode=$4E then   begin   if CtrlDown then     begin     //here goes your code that responds to Ctrl+N combination     Handled:=true;     end;//if Ctrl pressed   end;//if N key if (Msg.CharCode=VK_F5) and (Msg.Msg<>258) then   begin   //here goes your code that shoud respond to F5 key   Handled:=true;   end;//if F5 if Msg.CharCode=VK_ESCAPE then   begin   //another piece of code   Handled:=true;   end;//if Escape end;

Для комплекта...

Код

function CtrlDown:Boolean; var   State:TKeyboardState; begin GetKeyboardState(State); Result:=((State[vk_Control] And 128)<>0); end; function ShiftDown:Boolean; var   State:TKeyboardState; begin GetKeyboardState(State); Result:=((State[vk_Shift] and 128)<>0); end; function AltDown:Boolean; var   State : TKeyboardState; begin GetKeyboardState(State); Result:=((State[vk_Menu] and 128) <> 0); end;

И напоследок... Ты наверняка читал про то, что если не пошаманить с функциями IsDialogMessage, TranslateAccelerator, то много-много чего в ТВебБродилке работать не будет. И наверняка пошаманил Если это так, то не забудь дополнительно вызывать ApplicationEvents1ShortCut после TranslateAccelerator

Большое спасибо за примеры! Посмотрев пост о замене Find'a, я попробовал
BOOL RegisterHotKey(
HWND hWnd, // window to receive hot-key notification
int id, // identifier of hot key
UINT fsModifiers, // key-modifier flags
UINT vk // virtual-key code
);
перекрываю WebBrowser' овские CTRL+F и CTRL+Z ,перехватываю WMHotKey и выполняю свои действия
На счет подключения к событиям DHTML. В инете везде развешена статья Тимофея Чадова "Подключение к событиям объектной модели DHTML при использовании WebBrowser-control", но пример дан на С++, а я в нем не очень шарю. Описывается подключение к событиям с использованием ConnectionPoints, MFC, CHtmlEventSink и т.д. Вообще не нашел примеров на Delphi.
December, зря ты упомянул IsDialogMessage и TranslateAccelerator вопросов возникло еще больше
И еще в догонку на форме также находится TreeView, в котором отображаются Image'и и Link'и со страницы из WebBrowser'а, для каждого вида вершин своя иконка. Может подскажете как лучше/проще организовать Undo/Redo (например при удалении Image'а со страницы), вообще связь м/у ними.
Я делаю так (для простоты опишу однократное):
1.Отслеживаю нажатие клавиши DELETE.
2.Проверяю, чтО удаляется. Если картинка, то: сохраняю TreeView в фаил Undo.txt.
3. Удаляю вершину из TreeView, записываю TreeView в файл Redo.txt.
При Undo делаю TreeView1.LoadFromFile('Undo.txt'), при Redo делаю TreeView1.LoadFromFile('Redo.txt'). Но так теряются иконки ассоциированные с вершинами (показывается только первая из ImageList'a) обновить почему-то не получается (может руки кривоваты). Конечно проще не всегда лучше, но может есть способ попроще

Стоп-стоп-стоп.
За примеры - всегда пожалуйста, но ещё читаем правила: один топик - один вопрос. Так что насчёт TreeView - это в общие вопросы.

Цитата(Guest @ 19.10.2005, 16:05)

IsDialogMessage и TranslateAccelerator

Если не используешь TWebBrowser для сёрфинга и работы с вводом текста от пользователя, то можно не обращать внимания на это дело.

Цитата(Guest @ 19.10.2005, 16:05)

статья Тимофея Чадова

Тут не важно, cpp или Delphi, тяжелее с технологиями... Ладно, как-нить разберёмся...