如何在Delphi应用中嵌入PowerPoint查看器实现幻灯片浏览

问题分析 #

你尝试使用SlideShowSettings.Run方法启动幻灯片放映，但该方法会启动PowerPoint独立幻灯片放映窗口，无法在Delphi应用内显示；而OleContainer1.DoVerb(ovShow)虽能显示内容，但会唤起外部PowerPoint程序覆盖当前应用窗口。

解决方案：内嵌显示并控制幻灯片切换 #

要实现应用内显示PPT并手动/自动切换幻灯片，需通过控制PowerPoint对象的视图而非启动独立幻灯片放映模式。以下是具体实现步骤：

1. 基础配置（确保OleContainer正确加载PPT） #

首先确保OleContainer已加载目标PowerPoint文件，并禁止自动唤起外部程序：

procedure TForm1.FormCreate(Sender: TObject);
begin
  OleContainer1.CreateObjectFromFile('C:\YourPresentation.pptx', False);
  OleContainer1.AutoActivate := aaManual; 
  OleContainer1.Visible := True;
end;

2. 手动切换幻灯片（上一张/下一张） #

通过PowerPoint的View对象控制幻灯片导航，实现应用内切换：

// 切换到下一张幻灯片
procedure TForm1.btnNextClick(Sender: TObject);
var
  PPTApp: OleVariant;
  Presentation: OleVariant;
begin
  PPTApp := OleContainer1.OleObject.Application;
  Presentation := PPTApp.ActivePresentation;
  
  if Presentation.SlideWindow.View.SlideIndex < Presentation.Slides.Count then
    Presentation.SlideWindow.View.GotoSlide(Presentation.SlideWindow.View.SlideIndex + 1);
end;

// 切换到上一张幻灯片
procedure TForm1.btnPrevClick(Sender: TObject);
var
  PPTApp: OleVariant;
  Presentation: OleVariant;
begin
  PPTApp := OleContainer1.OleObject.Application;
  Presentation := PPTApp.ActivePresentation;
  
  if Presentation.SlideWindow.View.SlideIndex > 1 then
    Presentation.SlideWindow.View.GotoSlide(Presentation.SlideWindow.View.SlideIndex - 1);
end;

3. 自动切换幻灯片（定时） #

若需要自动切换，可使用Timer组件配合导航代码：

procedure TForm1.Timer1Timer(Sender: TObject);
var
  PPTApp: OleVariant;
  Presentation: OleVariant;
  CurrentIndex: Integer;
begin
  PPTApp := OleContainer1.OleObject.Application;
  Presentation := PPTApp.ActivePresentation;
  CurrentIndex := Presentation.SlideWindow.View.SlideIndex;
  
  if CurrentIndex < Presentation.Slides.Count then
    Presentation.SlideWindow.View.GotoSlide(CurrentIndex + 1)
  else
    Timer1.Enabled := False; // 播放完毕停止定时器
end;

4. 关键注意事项 #

• 建议引用PowerPoint类型库：在Delphi中通过Component > Import Component > Import Type Library选择Microsoft PowerPoint xx.x Object Library，生成并添加到项目中，可避免OleVariant的类型模糊问题。
• 确保目标机器已安装兼容版本的PowerPoint。
• 避免使用SlideShowSettings.Run，该方法始终启动独立幻灯片放映窗口，无法内嵌到OleContainer中。

替代方案：使用WebBrowser控件 #

若存在PowerPoint版本兼容问题，可将PPT保存为HTML格式，通过WebBrowser控件加载显示，这种方式无需依赖PowerPoint安装，但会丢失部分PPT特效。

内容的提问来源于stack exchange，提问作者MGJC