How to display a slideshow from a PPT into a particular form

Hi, experts
I am developing an application (with Delphi 7) based on dual-monitor system. The main objective is to develop an application that can control the slideshow of 2 powerpoint files  such as next, prev, goto x slide in which the primary monitor is to display  the control panel and the secondary monitor is to display the slideshow in resizable manner (not always in fullscreen). Thus, I must display the slideshow into a form (so I can adjust its height and width properties). How to do this?
Thanks so much before.
King regards.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Emmanuel PASQUIERFreelance Project ManagerCommented:
in the system palette, you can find the OLEContainer. Drop it on the form, it will represent as a container for any OLE Object, such as a powerpoint.

To load the PPT File, and create a PowerPoint Object in the same time within this container, you use the CreateObjectFromFile method


You can then operate on the PowerPoint object using the OleObject property of the OleContainer
amagabarAuthor Commented:
Excuse me, I don't find the OLEContainer in my delphi 7. I just find and use TPowerPointApplication (in server palette). I open a ppt like this:

ppt1 := PowerPointApplication1.Presentations.Open(ppt_filename,toleenum(False),toleenum(False),toleenum(false));


and to drive the slideshow, inside an onclick event handler a button:

 //other button with: ...view.first, prev.. etc..

and the problem is while I goto a slide, for an example directly go to slide 5th (from slide 2nd currently) using command (I put it in stringgrid's ondoubleclick event handler):


The result is: will show silde 4th+slide transition+then just slide 5th. This occured since the original PPT uses slide transition in each slides. So, How to remove the slide transition programmatically, so when the command:


is executed, directly showing the slide 5th (without any slide transition).
Thank you.

Emmanuel PASQUIERFreelance Project ManagerCommented:
OLEContainer is there since a while. at least Delphi 5. you can find it in the System palette, just aside TMediaPlayer
Cloud Class® Course: CompTIA Cloud+

The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.

amagabarAuthor Commented:
Oh very sorry.. I'm misunderstanding with your answer since I have had two questions.
Actually my response above  is for my second question. OK I am trying your advice.. tomorrow I will be back. Thank you.
Emmanuel PASQUIERFreelance Project ManagerCommented:
I know, I also answered to your other question. Don't use TPowerPointApplication but OLEContainer.OleObject once you have created the PPT object and loaded the file (in one simple call)


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
amagabarAuthor Commented:
Yes, but it seems a rigid slideshow. Only the first slide will be shown inside Olecontainer. Let me know, how to show the others?  Can I control the slide show inside the Olecontainer programmatically. I also found a reference from this web:

But it is not a final solution, I think.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.