如何将edit1.text的值传给webbrowser1网页中的文本框中,并且产生一个button.click的事件

Question

如何将edit1.text的值传给webbrowser1网页中的文本框中,并且产生一个button.click的事件

Answer 1

研究一下IHTMLDocument2接口。这技术帖居然发在了非技术区，就不多说什么了。

Answer 2

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);
    (form.item('add',0) as IHTMLElement).click;//add为按钮名称
  end;