delphi - delphi 6 twebbrowserでポップアップボタンをクリックする方法は?

Question

Delphi 6 で自動送信ツールを作成しています。

コンポーネントを使用TWebbroswerしてデータをさまざまなコントロールに挿入しています。

ただし、ポップアップ ウィンドウの[ OK ] ボタンをクリックできるようにする必要があります (このボタンは、javascript の確認コマンドの後に表示されます)。

Delphi アプリケーション内からこのボタンをクリックする方法はありますか?

Answer 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;