Delphi技术问题：如何让TEdit显示TWebBrowser当前URL

嘿，这个需求其实很好实现，核心就是借助TWebBrowser的导航完成事件来同步当前页面的URL到你的TEdit控件里。下面给你一步步拆解具体操作：

1. 绑定TWebBrowser的OnNavigateComplete2事件 #

这个事件会在页面（包括点击链接跳转后的新页面）加载完成时触发，刚好能满足我们同步URL的需求：

• 打开Delphi窗体设计器，选中你的TWebBrowser组件
• 在右侧的Object Inspector面板里找到OnNavigateComplete2事件，双击它进入代码编辑界面

2. 编写事件处理代码 #

在自动生成的事件函数里，我们可以获取当前页面的URL并赋值给TEdit。这里需要注意，事件的第二个参数pDisp对应当前的浏览器对象，我们可以把它转换成IWebBrowser2接口来获取完整的URL：

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
  WebBrowser: IWebBrowser2;
begin
  // 将pDisp转换为IWebBrowser2接口
  if Supports(pDisp, IWebBrowser2, WebBrowser) then
  begin
    // 把当前页面的URL同步到TEdit
    Edit1.Text := WebBrowser.LocationURL;
  end;
end;

3. 额外优化：初始加载时的URL同步 #

如果你希望用户在TEdit输入URL并触发加载后，也能确保URL显示准确（比如手动输入URL回车加载的场景），可以在你触发WebBrowser导航的代码里也加上同步逻辑，比如按钮点击事件：

procedure TForm1.ButtonGoClick(Sender: TObject);
begin
  if Trim(Edit1.Text) <> '' then
  begin
    WebBrowser1.Navigate(Edit1.Text);
    // 先同步一次，后续OnNavigateComplete2会在页面加载完成后再更新一次
    Edit1.Text := WebBrowser1.LocationURL;
  end;
end;

注意事项：处理页面框架的情况 #

如果网页包含框架（Frame），OnNavigateComplete2会在每个框架加载完成时都触发一次。如果你只想同步主页面的URL，可以判断pDisp是否等于WebBrowser的默认接口，避免频繁更新：

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  // 只在主页面导航完成时更新TEdit
  if pDisp = WebBrowser1.DefaultInterface then
  begin
    Edit1.Text := WebBrowser1.LocationURL;
  end;
end;

内容的提问来源于stack exchange，提问作者Minh Đạt