Delphi-如何将TEdit标记为TWebBrowser url

我正在创建一个webbrowser，我使用TwebbBrowser和一个TEdit来键入url。但是当我打开一个带有链接的网页，然后单击该链接时，我会转到另一个网页，我的问题是如何使TEdit标签成为当前url。

为

OnNavigateComplete2

事件编写一个处理程序：

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  Edit1.Text := URL;
end;

报告说：

编写OnNavigateComplete2事件处理程序以执行特定操作 当Web浏览器成功导航到新资源时。这个 事件可以在文档完全下载之前发生，但在 至少必须接收文档的一部分，并且必须有一个用于 创建的文档

注意：与OnDownloadComplete事件不同，如果操作不成功，OnNavigateComplete2不会发生

一个不存在URL的测试显示它无论如何都会触发

您还可以考虑编写一个处理程序，用于<代码> OnBeFoEnEngigaTe2/代码>事件，如果您想，F.EX。以编程方式取消对URL的导航

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Edit1.Text := URL;
end;

---

为OnNavigateComplete2事件编写一个处理程序：

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  Edit1.Text := URL;
end;

报告说：

编写OnNavigateComplete2事件处理程序以执行特定操作 当Web浏览器成功导航到新资源时。这个 事件可以在文档完全下载之前发生，但在 至少必须接收文档的一部分，并且必须有一个用于 创建的文档

注意：与OnDownloadComplete事件不同，如果操作不成功，OnNavigateComplete2不会发生

一个不存在URL的测试显示它无论如何都会触发

您还可以考虑编写一个处理程序，用于<代码> OnBeFoEnEngigaTe2/代码>事件，如果您想，F.EX。以编程方式取消对URL的导航

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Edit1.Text := URL;
end;

---

你确定你在使用XE吗？你确定你在使用XE吗？