使用WebBrowser打开Powerpoint时只自动显示前两页的解决办法

有些时候在使用delphi的WebBrowser控件编写显示PPT(Microsoft PowerPoint)文档的时候(假设你欲显示的PPT已经设置成自动进行幻灯片切换),会出现WebBrowser只播放了前两页就停在那里不动了的情况。这时如果你用鼠标点一下WebBrowser右面的滚动条下方的箭头,会继续播放,如果你把PPT设置成了循环播放,也会顺利播放下去。
这个问题产生的原因尚不知晓,也许是由于office,WebBrowser控件,delphi之间的兼容问题所引发的。
经过我一段时间的探索,找到了一种可以使其正常运转的方法:
    我发现,如果在窗口中添加一个按钮,在按钮的OnClick事件中写入调用WebBrowser的Navigate函数的语句,然后在运行时用鼠标点击按钮来达到使用WebBrowser来播放PPT时,不会发生停止的现象。所以,可以调用鼠标的OnClick事件来达到目的,例如,如果你要访问的ppt的URL为http://198.162.0.1/p.ppt,你可以新建一个全局变量ss:widestring,然后将URL赋给ss,然后新建一个Button1,在OnClick事件中使用 WebBrowser1.Navigate(ss);来访问。当然了,我们不能把原来在程序中自动执行的部分通过手动点按钮来实现,在你需要时,调用Button1.OnClick(nil);就可以模拟出一个鼠标点击事件了。
    要注意的是,这个Button1的Visible属性是不能够为false的,如果你想让这个多余的按钮不可见,将Visible属性设为False,你将看到我们所讨论的这个问题仍然存在,PPT还是停滞不前。这个问题之所以不知道产生的原因,问题就在这里。建议大家把Button1的Height和Width设成1,这样他就成了一个像素点,把它放到角落应该不会被发现。

 

2008.5.30

经过进一步研究,发现这个问题确实是由于Focus的问题,但是对WebBrowser这个控件使用setfocus方法好像不行,还是要使用一个button,有的时候如果按照上文说的方法不行的话,可以在调用onclick事件前使用button1.setfocus,对按钮设置焦点。

已标记关键词 清除标记
相关推荐
<p> <b><span style="background-color:#FFE500;">【超实用课程内容】</span></b> </p> <p> <br /> </p> <p> <br /> </p> <p> 本课程内容包含讲解<span>解读Nginx的基础知识,</span><span>解读Nginx的核心知识、带领学员进行</span>高并发环境下的Nginx性能优化实战,让学生能够快速将所学融合到企业应用中。 </p> <p> <br /> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <b><br /> </b> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <b><span style="background-color:#FFE500;">【课程如何观看?】</span></b> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> PC端:<a href="https://edu.csdn.net/course/detail/26277"><span id="__kindeditor_bookmark_start_21__"></span></a><a href="https://edu.csdn.net/course/detail/27216">https://edu.csdn.net/course/detail/27216</a> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 移动端:CSDN 学院APP(注意不是CSDN APP哦) </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 本课程为录播课,课程永久有效观看时长,大家可以抓紧时间学习后一起讨论哦~ </p> <p style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <br /> </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <strong><span style="background-color:#FFE500;">【学员专享增值服务】</span></strong> </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <b>源码开放</b> </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 课件、课程案例代码完全开放给你,你可以根据所学知识,自行修改、优化 </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 下载方式:电脑登录<a href="https://edu.csdn.net/course/detail/26277"></a><a href="https://edu.csdn.net/course/detail/27216">https://edu.csdn.net/course/detail/27216</a>,播放页面右侧点击课件进行资料打包下载 </p> <p> <br /> </p> <p> <br /> </p> <p> <br /> </p>
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页