![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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. |