Показать сообщение отдельно
  #4  
Старый 02.11.2022, 12:44
Shaft Shaft вне форума
Новичок
 
Регистрация: 15.05.2013
Сообщения: 74
Версия Delphi: 7/10.4
Репутация: 12
По умолчанию

Код:
var
  Waiting:Boolean;
//....

for i := 0 to memo1.lines.Count - 1 do
begin
  EdgeBrowser1.ExecuteScript('document.getElementById("input_value").value = "'+memo1.lines[i]+'";');
  EdgeBrowser1.ExecuteScript('document.getElementById("btn_find").click();');
  Waiting:=True;
  repeat
    Application.ProcessMessages;
  until not Waiting;
  EdgeBrowser1.ExecuteScript('document.getElementById("chbox1").click();');
end;

procedure TForm1.EdgeBrowser1NavigationCompleted(Sender: TCustomEdgeBrowser; IsSuccess: Boolean; WebErrorStatus: TOleEnum);
begin
  Waiting:=False;
end;
Ответить с цитированием