在 webbrowser 的Complete 事件下写如下代码:
if Pos('reportpreview.aspx', LowerCase(URL)) > 0 then
Webbrowser .UserInterfaceOptions := [NO3DBORDER, FLAT_SCROLLBAR]
else
Webbrowser .UserInterfaceOptions := [SCROLL_NO, NO3DBORDER, FLAT_SCROLLBAR];需要实现的功能的 当Webbrowser 加载完成页面 'reportpreview.aspx' 后自动显示滚动条,是其他页面就不显示,
但这样始终不行,不会在需要的页面把滚动条现实出来,请问这个该怎么处理呢?
if Pos('reportpreview.aspx', LowerCase(URL)) > 0 then
Webbrowser .UserInterfaceOptions := [NO3DBORDER, FLAT_SCROLLBAR]
else
Webbrowser .UserInterfaceOptions := [SCROLL_NO, NO3DBORDER, FLAT_SCROLLBAR];需要实现的功能的 当Webbrowser 加载完成页面 'reportpreview.aspx' 后自动显示滚动条,是其他页面就不显示,
但这样始终不行,不会在需要的页面把滚动条现实出来,请问这个该怎么处理呢?
WebBrowser.Document.body.Scroll = 'Auto'