在 Delphi 中使用 TWebBrowser 组件可以实现浏览器功能。下面是一个简单的示例:

在 Delphi 中创建一个新的窗体。

在窗体上放置一个 TWebBrowser 组件。

添加一个按钮和一个编辑框组件,用于输入网址和导航到指定网址。

在按钮的 OnClick 事件中添加以下代码:

procedure TForm1.Button1Click(Sender: TObject);beginWebBrowser1.Navigate(Edit1.Text);end;

这样,当点击按钮时,WebBrowser 组件会根据编辑框中的网址进行导航。

还可以在 TWebBrowser 组件上添加其他功能,比如在页面加载完成后执行一些操作。比如,在 TWebBrowser 的 OnDocumentComplete 事件中添加以下代码:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);begin// 页面加载完成后执行一些操作ShowMessage('网页加载完成!');end;

这样,当页面加载完成后,会弹出一个消息框显示“网页加载完成!”。