0

如何从 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;
4

0 回答 0