|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нужна помощь с кнопкой
Всем доброго времени суток.
Не как не могу понять как нажать на вот такую кнопку: <button type="button" id="LikeST" class="btn btn-warning" onclick="gogo2()">Получить задание</button> Как я пытался на неё нажать: Код:
procedure TForm1.Button4Click(Sender: TObject); var i:integer; s: String; html_tag: Variant; begin html_tag:= WebBrowser1.OleObject.Document.forms.item(0).elements; for i:=0 to (html_tag.Length-1) do begin if (html_tag.item(i).id='LikeST') and (html_tag.item(i).onclick='gogo2()') then begin html_tag.item(i).click; end; end; end; lmikle: пользуемся тегами. Но в этом случае нечего не происходит (ошибки тоже не какой не вылетает). Приведите пожалуйста пример нажатия на такую кнопку. Желательно с полным кодом. Спасибо! Последний раз редактировалось lmikle, 20.09.2017 в 17:43. |