Как проиграть AVI на полный экран

Советы » Видео » Как проиграть AVI на полный экран

Просто проиграть его на другой форме, развернутой на весь экран

{Code for Form 1}

uses

Unit2; procedure

TForm1.Button1Click(Sender: TObject); begin

Form2.Show; Form2.WindowState := wsMaximized; Form2.MediaPlayer1.Notify := false

; Form2.MediaPlayer1.Display := Form2.Panel1; Form2.MediaPlayer1.FileName := 'C:TheWallDELCAR2.AVI'; Form2.MediaPlayer1.Open; Form2.MediaPlayer1.DisplayRect := Form2.ClientRect; Form2.MediaPlayer1.Play; end

; {Code for Form 2} procedure

TForm2.MediaPlayer1Notify(Sender: TObject); begin

if

MediaPlayer1.NotifyValue = nvSuccessful then

Form2.Close; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com