如何在html页面中调用onkeypress事件（Delphi）

Question

如何使用 WebBrowser 在 html 页面中调用 textarea 控件的 onkeypress 事件？

Answer 1

这是一种后期绑定的方式：

procedure TBrowserPageIE.Test;
var
  doc : OleVariant;
  el  : OleVariant;
  v   : OleVariant;
begin
  if FBrowser.Document <> nil then begin
    doc := FBrowser.Document;
    el := doc.getElementById('myTextArea');
    el.FireEvent('onkeypress', v);
  end;
end;

请添加一些用于 nil/异常处理的代码。