Получить текст ответа от 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;