在 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;
```
这样,当页面加载完成后,会弹出一个消息框显示“网页加载完成!”。