如何为媒体播放器组件启用自动播放？

Question

我正在尝试为媒体播放器组件启用自动播放。就像，当有人打开我的程序时，一个视频显示为介绍，然后在几秒钟后自动关闭，然后下一个表单出现，而包含媒体播放器的第一个表单自动关闭！

我使用的是 Delphi 10.4！

Answer 1

在表单的OnShow 事件中，启动playing 媒体（有关详细信息，请参阅Adding Audio or Video Clips to an Application），确保在媒体播放器上指定Notify=true。

然后，在媒体播放器的OnNotify 事件中，Close() 表单，在表单的OnClose 事件中，您可以Show() 下一个表单。

例如：

procedure TForm1.FormShow(Sender: TObject);
begin
  MediaPlayer1.FileName := ...;
  MediaPlayer1.Open;
  MediaPlayer1.Notify := True;
  MediaPlayer1.Play;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form2.Show;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  Close;
end;

请注意，如果您将 TMediaPlayer 放在您的 MainForm 上，然后将 Close() 放在该表单上，您的应用将退出。因此，要么将TMediaPlayer 放在非MainForm 表单上，并在显示MainForm 之前显示它，或者将Hide() MainForm（并使用OnHide 事件）而不是Close()它。