让delphi嵌入的WebBrowser无边框无滚动条
//浏览器页面加载完成 procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin WebBrowser1.OleObject.Document.Body.Scroll := 'no'; //不显示滚动条 ...
原创
2013-03-17 20:34:56 ·
335 阅读 ·
0 评论