一个控件问题
procedure TForm1.Button1Click(Sender: TObject);varo:OleVariant;beginWebBrowser1.Navigate('http://localhost:8080/myboxcs/control/shoparea/manage.do?method=addUI',O);end;procedure TForm1.Button2Click(Sender: TObject);var o:Olevariant;begin o:=WebBrowser1.OleObject.document.all.item('area',0); o.value:='area'; (Self.WebBrowser1.Document as IHTMLDocument3).getElementById('SYS_SET').click;end;