Скачать: CL | DM;

Как программно нажать на кнопку 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.012 c