Нажать на элемент на странице WebBrowser Delphi - Delphi - Ответ 9887113

for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do
begin
if WebBrowser1.OleObject.Document.All.Item(i).InnerHTML='<div class="container -up"><a href="javascript:;" data-test="deal-button-up"><svg class="svg"><use xmlns:xlink="http://www.w3.org/1999/xlink" xlink:href="#up"></use></svg><span class="text">Выше</span><span class="spinner">&nbsp;</span></a></div>' then
   WebBrowser1.OleObject.Document.All.Item(i).Click();
end;

var
Doc, Arr, Elem : Variant;  S:string;
i: Integer; did:boolean;
begin
did:=false;
  i:=WebBrowser1.OleObject.Document.all.tags('div').length - 1;
  while i >=0  do
begin
 
if pos('data-test="deal-button-up"',WebBrowser1.OleObject.Document.all.tags('div').item(i).outerhtml)<>0 then
begin
WebBrowser1.OleObject.Document.all.tags('div').item(i).focus;
WebBrowser1.OleObject.Document.all.tags('div').item(i).click();
 
did:=true;
 
memo1.Lines.append(WebBrowser1.OleObject.Document.all.tags('div').item(i).outerHTML);
memo1.Lines.append('');
 
end;
if did then
i:=0;
i:=i-1;
end;

WebBrowser1.OleObject.Document.all.tags('div').item(i).click();