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