Как программно нажать на кнопку Submit?

← →
JokerJ (2002-04-18 02:11) [0]

В TWEbBrowser загружается html документ. Есть кнопка
<input type=submit value="But1">. Как программно ее нажать?

← →
Лёша © (2002-04-18 02:54) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
Coll : IHTMLElementCollection;
i : integer;
Doc : IHtmlDocument2;
begin
Doc:= WebBrowser1.Document as IHTMLDocument2;
Coll:= Doc.All.tags("INPUT") as IHTMLElementCollection;
for i:=0 to Coll.length-1 do
if (Coll.item(i,varEmpty) as IHTMLInputElement).value="But1"
then (Coll.item(i,varEmpty) as IHTMLElement).click;
end;

Как программно нажать на кнопку Submit? Найти похожие ветки