遍历即可实现,下列代码仅供参考: var i: integer; T: OleVariant; begin T := WebBrowser1.Document; do begin if T.all.item(i).tagName = 'INPUT' then begin if T.all.item(i).type = 'submit' then begin T.all.item(i).click; Exit; end; end; end; end; http://blog.csdn.net/ya
建议大家采用另外一种编码风格,不要在程序中到处都有这种LZ程序生成的代码: begin with qryMain do begin try Close; SQL.Clear; SQL.Add('Delete From MONTASK where TASKID=:TASKID'); ParamByName('TASKID').AsString := AID; Execute; finally Close; end; end; end; 实际上,在一般的项目中,整个程序中,只需要在统一的一个dm中,