WebBrowser较难解决的问题

Question

如何delphi语句执行WebBrowser1中的提交动作

Answer 1

procedure SubmitForm(Document:IHTMLDocument2);
  var i:Integer;Form:IHTMLFormElement;
  begin
    for i:=0 to Document.forms.length -1 do
    begin
      Form:=Document.forms.item(i,i) as IHTMLFormElement;
      Form.submit();
      exit;
    end;
  end;提交第一个Form使用方法
SubmitForm(WebBrowser1.Document as IHTMLDocument2);

Answer 2

IHTMLDocument2 在哪个单元定义

Answer 3

谢谢  Eastunfail(龍子龍孫)