Советы пользователям Delphi и C++Builder


             

Совет 3. Заставка с видеофрагментом - часть 2


Обратите внимание: при вычислении координат левого верхнего угла компонента TPanel в приведенных выше обработчиках событий используются функции округления действительных чисел, которые имеют разные названия для Pascal и C++.

Так как мы ликвидировали обработчик события, связанный с компонентом TTimer, наша форма теперь не закроется автоматически. Очевидно, что закрытие формы в данном случае должно быть связано с моментом окончания воспроизведения видеофрагмента. С этой целью воспользуемся событием OnNotify компонента TMediaPlayer, в котором проанализируем его свойство Mode - в момент окончания воспроизведения оно изменится. Соответствующий код для Delphi имеет вид:

procedure TForm2.MediaPlayer1Notify(Sender: TObject); begin Mediaplayer1.Notify := True; if Mediaplayer1.Mode=mpStopped then Form2.Close; end;

Код для C++Builder имеет при этом следующий вид:

void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender) { MediaPlayer1->Notify= true; if (MediaPlayer1->Mode==mpStopped) { Form2->Close(); } }

На этапе выполнения мы получим заставку примерно следующего вида:

Рис. 7. Заставка, воспроизводящая видеофрагмент




Содержание  Назад  Вперед