twebbrowser

← →
megatrend © (2002-10-31 15:20) [0]

Имеется twebbrowser на форме. На странице html (в этой форме) есть кнопка. Как программно на нее кликнуть?

← →
blgr (2002-10-31 21:14) [1]

Аналогичный вопрос! Мне тоже понадобился бы ответ на него!

← →
Дмитрий К.К. (2002-11-01 08:54) [2]

Программно кликнуть - енто значит послать серверу запрос <FORM ACTION= ... тра-ля-ля, тополя...

← →
int64 © (2002-11-01 13:00) [3]

Дмитрий К.К. (01.11.02 08:54)
Это можеи быть отдельная кнопка, не из <FORM...

megatrend © (31.10.02 15:20)

uses ..., MSHTML;
...
procedure TForm1.Button1Click(Sender: TObject);
var
Coll : IHTMLElementCollection;
Doc: IHTMLDocument2;
i: integer;
begin
Doc:= IHTMLDocument2(WebBrowser1.Document);
if assigned(Doc) then
begin

//получаем коллекцию всех INPUT-элементов
Coll:=IHTMLElementCollection(Doc.All.Tags("INPUT"));

//вот так кликаем по всем button
for i:=0 to Coll.length-1 do
if HTMLInputElement(Coll.item(i,varEmpty)).type_="button"
then
HTMLInputElement(Coll.item(i,varEmpty)).Click;

//а вот так кликаем по всем submit
for i:=0 to Coll.length-1 do
if HTMLInputElement(Coll.item(i,varEmpty)).type_="submit"
then
HTMLInputElement(Coll.item(i,varEmpty)).Click;
end;
end;

Можно проверять не только на type_ или порядковый номер, но и на id, name, value ...

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;
вариации на тему клика,..

Большое спасибо. Эту тему надо бы в ФАК занести.

twebbrowser Найти похожие ветки