| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

twebbrowser [D5, D6, Win2k]

megatrend ©   (2002-10-31 15:20:00) 

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

---

megatrend   (2002-11-01 14:52:00) [1]

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

---

Opuhshii   (2002-11-01 13:06:00) [2]


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;

вариации на тему клика,..

---

int64   (2002-11-01 13:00: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 ...

---

Дмитрий К.К.   (2002-11-01 08:54:00) [4]

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

---

blgr   (2002-10-31 21:14:00) [5]

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

---

Наверх