在Delphi中使用WebBrowser組件可以實現嵌入瀏覽器功能,可以顯示網頁、執行JavaScript腳本、獲取網頁內容等操作。下面是一個簡單的示例:
在Delphi中創建一個新的VCL應用程序項目。
在主窗體上放置一個TWebBrowser組件。
在主窗體的OnCreate事件中添加以下代碼:
procedure TForm1.FormCreate(Sender: TObject);
begin
// 設置WebBrowser的父窗口為主窗體
WebBrowser1.ParentWindow := Handle;
// 加載網頁
WebBrowser1.Navigate('https://www.google.com');
end;
此外,還可以使用WebBrowser組件的其他方法和屬性來實現更多功能,例如:
使用Navigate方法加載指定的URL。
使用GoBack和GoForward方法實現頁面的后退和前進。
使用Document屬性獲取頁面的HTML內容。
使用ExecWB方法執行瀏覽器的命令,如打印、保存等。
以上只是WebBrowser的一些基本用法,更多高級功能可以參考Delphi的官方文檔和相關教程。