本文整理自网络，侵删。
将 HTML 代码直接加入到 TWebbrowser 组件中去uses ActiveX;procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);var sl: TStringList; ms: TMemoryStream;begin WebBrowser.Navigate('about:blank'); if Assigned(WebBrowser.Document) then begin sl := TStringList.Create; try ms := TMemoryStream.Create; try sl.Text := HTMLCode; sl.SaveToStream(ms); 0D ms.Seek(0, 0); (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));0A finally ms.Free; end; finally sl.Free; end; end;end;procedure TForm1.Button1Click(Sender: TObject);begin WB_LoadHTML(WebBrowser1,' <html > <body bgcolor= "#0099FF " >SwissDelphiCenter </html >');end;
来源：http://iytnm.icoc.me/h-nd-1113.html#_np=125_826 相关阅读 >>
Delphi unigui中cookies使用中文汉字的方法
更多相关阅读请进入《Delphi》频道 >>
