delphi webbrowser 表单赋值模拟点击

单元文件：MSHTML

var   Form   :     IHTMLFormElement     ;

        D:IHTMLDocument2     ;

begin

    with   WebBrowser1   do   begin

          D   :=   Document   as   IHTMLDocument2;

          Form   :=   D.Forms.item( 'form1 ',0)   as   IHTMLFormElement;   //form1为表单名

          //title为表单中的文本框

        (form.item( 'title ',0)   as   IHTMLElement).setAttribute( 'value ',s_title,0);  

        (form.item( 'content ',0)   as   IHTMLElement).setAttribute( 'value ',edit1.text,0);

//下面提交方式任选一种都可以 

    end;