Форум: "Сети";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
ВнизКак программно нажать на кнопку 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 вся ветка
Форум: "Сети";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c