Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как программно нажать на кнопку Submit? [D5, Win95/98, Win2k, WinXP]

JokerJ © (2002-04-18 02:11:00)
В TWEbBrowser загружается html документ. Есть кнопка
<input type=submit value="But1">. Как программно ее нажать?

Лёша (2002-04-18 02:54:00) [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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »