时间戳

首页 > 解决方案 > 如何为媒体播放器组件启用自动播放？

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

问题描述

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

我正在使用德尔福 10.4！

标签： delphivideocomponentsautoplay

解决方案

在表单的OnShow事件中，开始播放媒体（有关详细信息，请参阅向应用程序添加音频或视频剪辑），确保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()该表单上，您的应用程序将退出。因此，要么将 theTMediaPlayer放在非MainFormForm 上并在显示之前显示它MainForm，要么Hide()使用MainForm（并使用OnHide事件）代替Close()它。

推荐阅读