鍦?Delphi 涓娇鐢?TWebBrowser 缁勪欢鍙互瀹炵幇娴忚鍣ㄥ姛鑳姐€備笅闈㈡槸涓€涓畝鍗曠殑绀轰緥锛?/p>

1. 鍦?Delphi 涓垱寤轰竴涓柊鐨勭獥浣撱€?/p>

2. 鍦ㄧ獥浣撲笂鏀剧疆涓€涓?TWebBrowser 缁勪欢銆?/p>

3. 娣诲姞涓€涓寜閽拰涓€涓紪杈戞缁勪欢锛岀敤浜庤緭鍏ョ綉鍧€鍜屽鑸埌鎸囧畾缃戝潃銆?/p>

4. 鍦ㄦ寜閽殑 OnClick 浜嬩欢涓坊鍔犱互涓嬩唬鐮侊細

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

杩欐牱锛屽綋鐐瑰嚮鎸夐挳鏃讹紝WebBrowser 缁勪欢浼氭牴鎹紪杈戞涓殑缃戝潃杩涜瀵艰埅銆?/p>

杩樺彲浠ュ湪 TWebBrowser 缁勪欢涓婃坊鍔犲叾浠栧姛鑳斤紝姣斿鍦ㄩ〉闈㈠姞杞藉畬鎴愬悗鎵ц涓€浜涙搷浣溿€傛瘮濡傦紝鍦?TWebBrowser 鐨?OnDocumentComplete 浜嬩欢涓坊鍔犱互涓嬩唬鐮侊細

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
// 椤甸潰鍔犺浇瀹屾垚鍚庢墽琛屼竴浜涙搷浣?ShowMessage('缃戦〉鍔犺浇瀹屾垚锛?);
end;

杩欐牱锛屽綋椤甸潰鍔犺浇瀹屾垚鍚庯紝浼氬脊鍑轰竴涓秷鎭鏄剧ず鈥滅綉椤靛姞杞藉畬鎴愶紒鈥濄€?/p>