WebBrowser控件动态加载内容

1.引用 MSHtml单元

2.

procedure TForm1.btn2Click(Sender: TObject);
var
  str:string;
begin
  str:='<body>bbbbbbbbbb</body>'; //从数据库中查到的网页代码,HTML格式
  ihtmldocument2(wb1.Document).body.innerHTML:=str; //直接赋值

end;

posted @ 2011-03-04 18:08  iclotus  阅读(496)  评论(0编辑  收藏  举报