Delphi中可以使用TWebBrowser組件來實現HTML界面的瀏覽。以下是一個簡單的示例代碼:
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
procedure FormCreate(Sender: TObject);
procedure WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; const URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
// 設置WebBrowser的父窗口為當前窗口
WebBrowser1.ParentWindow := Self.Handle;
// 加載HTML頁面
WebBrowser1.Navigate('http://www.example.com');
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; const URL: OleVariant);
begin
// HTML頁面加載完成后,執行一些操作
ShowMessage('HTML頁面已加載完成!');
end;
end.
在上述代碼中,我們在FormCreate事件中設置了WebBrowser1的父窗口為當前窗口,并通過WebBrowser1.Navigate方法加載了一個HTML頁面。在WebBrowser1DocumentComplete事件中,可以執行一些頁面加載完成后的操作。
請注意,上述示例代碼中使用了一個TWebBrowser組件,并將其ParentWindow屬性設置為當前窗口的句柄。此外,還需要在uses子句中添加OleCtrls和SHDocVw單元。
希望可以幫助到你!