1.引用 MSHtml单元
2.
procedure TForm1.btn2Click(Sender: TObject);
var
str:string;
begin
str:='<body>bbbbbbbbbb</body>'; //从数据库中查到的网页代码，HTML格式
ihtmldocument2(wb1.Document).body.innerHTML:=str; //直接赋值
end;
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。