Всем доброго времени суток.
Не как не могу понять как нажать на вот такую кнопку:
<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: пользуемся тегами.
Но в этом случае нечего не происходит (ошибки тоже не какой не вылетает).
Приведите пожалуйста пример нажатия на такую кнопку. Желательно с полным кодом. Спасибо!