直接修改TWebBrowser显示内容

　2006-02-04 13:51:26　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閹碱偆鐥閺屾洘绻濊箛鏇犵獥闂佺厧澹婃禍婊堚€旈崘顏佸亾閿濆骸澧ù鐘欏嫮绠鹃柛顐ゅ枎閻忋儲銇勯弴妯哄姦妞ゃ垺鐟╅幃鈩冩償閵囧府鎷�

核心提示：PRocedure TForm1.Button1Click(Sender: TObject); begin Webbrowser1.Navigate('about:blank');end; procedure TForm1.Button2Click(Sender: TObject); var V: Ol

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;