直接修改TWebBrowser显示内容
2004-10-08 16:07
330 查看
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;
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;
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 文档显示部件：用word查看方法在word中直接显示文档显示部件中的内容，并可以设置是否允许修改word内容。 True：不允许修改word内容；false：允许修改word内容。 实例应用：在窗体
- 传窗体(例子是点完修改页面的修改后，直接在主窗体显示修改后的内容，不用再点一次查询)
- sed实现直接修改文件内容
- JQUERY、AJAX双击DIV,直接修改DIV内的内容
- EditTextPreference 小标题修改为显示内容
- Bootstrap 中下拉菜单修改成鼠标悬停直接显示 原创
- 显示和修改寄存器内容命令R
- Jmeter Ant Task如果报告中有错误，在邮件内容里面直接显示出来 系列2
- sed实现直接修改文件内容
- PHP直接修改表内容DataGrid功能实现代码
- js点击上传图片后直接显示在内容框中
- 修改数据显示内容
- [IOS]修改HTML显示内容和显示字体
- 实现第一条Toast还没显示完直接显示第二条内容，改变Toast内容
- 97、进入ScrollView根布局页面，直接跳到页面底部，不能显示顶部内容
- 利用DhtmlXtree实现展现，修改，添加，删除，移动功能一棵树上实现，iframe的单个滑动条显示，包含在iframe中树节点中文内容过长问题解决
- 修改网页页面显示内容
- 修改MOSS内容查询WEBPART的默认显示方式
- 关于phpcms内容修改中文不显示问题