События OnKeyDown в WebBrowser

[Миша]

Подскажите пожалуйста как дописать события OnKeyDown к WebBrowser? На перёд спасибо.

[raxp]

вы хотите нажимать кнопки в документе загруженном в компонент?

[Миша]

Если WebBrowser находится в фокусе и пользователь нажал клавишу Enter программа должна выводить некое сообщение.

вы хотите нажимать кнопки в документе загруженном в компонент?

Ну а если так то что нужно делать?

[raxp]

Если WebBrowser находится в фокусе и пользователь нажал клавишу Enter программа должна выводить некое сообщение

- ну например можно в лоб, вне зависимости от фокуса... не очень красиво конечно

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if getasynckeystate(vk_return)<>0 then messagebox(0,'','',mb_ok)
end;

Цитата:
вы хотите нажимать кнопки в документе загруженном в компонент? Ну а если так то что нужно делать?

если в уже загруженном документе есть несколько кнопок-объектов, то получив доступ через ole, как то так...

var
    ob: OleVariant;
    i: Integer;
  begin
    ob:= WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
     if (ob.item(i).tagName = 'INPUT') and
       (ob.item(i).type = 'SUBMIT') and
       (ob.item(i).Value = 'Recent Charges') then
       ob.item(i).Click;
  end;
...
и так далее

[Миша]

Клас больше спасибо за код!!!