让delphi嵌入的WebBrowser无边框无滚动条
?
//浏览器页面加载完成 procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.OleObject.Document.Body.Scroll := 'no'; //不显示滚动条
WebBrowser1.OleObject.Document.Body.style.border := 'none'; //不显示边框
end;
?
?
?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
?
?
注:必须使用相应的doctype 才能产生效果