如何在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; 

請添加對零/異常處理一些代碼。