Получить текст ответа от TEdgeBrowser

Как получить текст ответа от TEdgeBrowser? Я вызываю TEdgeBrowser в новой форме

      procedure TForm1.Button1Click(Sender: TObject);
var
  Form: TForm;
  Brws: TEdgeBrowser;
begin
  Form := TForm.Create(Self);
  Form.Width := 700;
  Form.Height := 700;
  Form.BorderStyle := bsDialog;
  Form.Position := poScreenCenter;
  Form.Caption := 'Google';
  Form.OnClose := BrowserFormClosed;

  Brws := TEdgeBrowser.Create(Form);
  TWinControl(Brws).Parent := Form;
  Brws.Align := alClient;
  Form.Show;
  Brws.Navigate('http://google.com');
end;

браузер этого кода из закрытого

      procedure TForm1.BrowserFormClosed(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

0 ответов

Другие вопросы по тегам