Заставка с видеофрагментом, отображаемым на полном экране
И, наконец, создадим заставку, воспроизводящую видеофагмент на всем экране. В этом случае надписи на форме и данные из реестра уже не нужны, но при этом нужно растянуть на весь экран и форму, и компонент TPanel. Поэтому обработчик события, связанного с созданием формы, несколько упрощается. В случае Delphi он теперь имеет вид:
procedure TForm2.FormCreate(Sender: TObject); begin Form2.Left:=0; Form2.Top:=0; Form2.Width:=Screen.Width; Form2.Height:=Screen.Height; Panel1.Align:=alClient; Mediaplayer1.Open; MediaPlayer1.DisplayRect:=Rect(0,0,Screen.Width,Screen.Height); MediaPlayer1.Play; end;
Соответственно в случае C++Builder он имеет вид:
void __fastcall TForm2::FormCreate(TObject *Sender) { Form1->Left=0; Form1->Top=0; Form1->Width=Screen->Width; Form1->Height=Screen->Height; Panel1->Align=alClient; MediaPlayer1->Open(); MediaPlayer1->DisplayRect=Rect(0,0,Screen->Width,Screen->Height); MediaPlayer1->Play(); }
Теперь форма, панель и сам видеофрагмент занимают весь экран, закрывая собой все окна, включая панель задач Windows. Тем не менее рекомендуется для полностью корректного воспроизведения подобного рода приложений установить свойство FormStyle данной формы равным fsStayOnTop.
Рис. 8. Заставка, воспроизводящая видеофрагмент на полном экране
