直接修改TWebBrowser显示内容

最新推荐文章于 2021-03-11 16:07:15 发布

dypher

最新推荐文章于 2021-03-11 16:07:15 发布

阅读量986

点赞数

分类专栏： delphi 文章标签： webbrowser

本文链接：https://blog.csdn.net/dypher/article/details/128187

版权

delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

procedure TForm1.Button1Click(Sender: TObject);
begin
  Webbrowser1.Navigate('about:blank');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  V: OleVariant;
begin
  V := WebBrowser1.Document;
s := '<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body>'+
       '<style type="text/css">' +
       'body {font-family: "宋体", "Times New Roman"; font-size: 12px;margin-left: 0px;margin-top: 0px;margin-right: 0px;margin-bottom: 0px;}' +
       '</style><b>Welcome!</b></body>';
V.Script.Document.Body.InnerHTML := s;
end;