delphi中webbrowser怎么使用

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

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

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

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

4. 在按钮的 OnClick 事件中添加以下代码：

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

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

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

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

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