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

本文整理自网络，侵删。

 遍历即可实现，下列代码仅供参考：
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; 

相关阅读 >>

Delphi xe10.x 快捷失灵解决办法

Delphi实现类似android锁屏的密码锁控件

Delphi 判断文件是否被使用

Delphi xe firemonkey的stylebook皮肤控件的使用

Delphi版inf方式加载驱动

Delphi在64位系统下写注册表注意事项

Delphi10.3构造一个json数据的第二种方法，并格式化输出

Delphi 将svg加载到timage控件

Delphi 在tunimemo中复制和粘贴选定的文本

Delphi mainmenu控件 checkde属性用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi WebBrowser1 网页提交按钮执行点击事件