如何使用 delphi 6 twebbrowser 单击弹出按钮？答案

【问题标题】：how to click on popup button with delphi 6 twebbrowser?如何使用 delphi 6 twebbrowser 单击弹出按钮？
【发布时间】：2012-12-01 18:59:26
【问题描述】：

我正在 Delphi 6 上编写我的自动提交工具。

我正在使用TWebbroswer 组件向不同的控件插入数据。

但是我需要能够点击弹出窗口上的 OK 按钮（此按钮出现在 javascript 确认命令之后）。

有什么方法可以在我的 Delphi 应用程序中单击此按钮？

【问题讨论】：

我只对你的问题投了赞成票，因为有人在没有添加理由的情况下投了反对票。欢迎来到 Stackoverflow。就您的问题而言，它的质量很差，不太可能给您任何答复。您未能展示您所做的代码示例，并且“我如何单击此按钮”并不是一个真正的问题。请参阅FAQ，了解如何提问，Stackoverflow 风格
@Kolossus，你为什么要投票给“质量很差”和“不太可能得到……回应”的问题？这类问题是究竟反对票的用途。可惜投票没有帮助。
除非您告诉我们更多信息，否则我们无法回答这个问题。以 html 为例。
@RobKennedy 如果你想在 Stackoverflow 上获得新用户，你需要给他们指导。
@RobKennedy，我不赞成 OP 的利益（或遗憾）。我投了赞成票，所以如果谁对我的行为感到强烈反对，他会回来解释他/她的投票并按照stackoverflow的精神做正确的事。我赞成恢复现状，因为没有解释，反对票毫无意义。

标签： delphi twebbrowser

【解决方案1】：

试试这个 =)

procedure TForm1.Button1Click(Sender:Tobject);
begin
 EmbeddedWB1.Navigate('about:<input%20type=submit%20value="Click%20me!!!"%20onClick="alert(''Click!!!'');">');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Document:Variant;
Button:Variant;
I:Dword;
begin
 Document:=EmbeddedWB1.Document;
 for i:= 0 to Document.all.Length -1 do begin
   Button:=Document.all.item(I);
   if SameText(Button.tagName,'INPUT') then begin
     Button.Click;
     break;
   end;
 end;
end;

【讨论】：

问题询问如何单击警报对话框上的按钮。您的代码按下 HTML 按钮并显示一个对话框，但问题询问如何关闭该对话框。
@RobKennedy 我想知道对话框是由 MSIE 还是由 JS 生成的。如果是后者，他可以覆盖“alert()”函数什么都不做。
@Rob Kennedy：作者谈论“弹出窗口上的确定按钮”，而不是对话框