|
|
|
|
直接修改TWebBrowser显示内容 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
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; 
|
|
相关文章：相关软件： |
|
本类阅读TOP10