delphi 网页提交按钮执行点击事件

遍历即可实现，下列代码仅供参考：  

var  
  i: integer;  
  T: OleVariant;  
begin  
  T := WebBrowser1.Document;  
  for i := 0 to T.all.Length - 1 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/yanjiaye520/article/details/7942366