if OpenDialog1.Execute then

Begin

MediaPlayer1.FileName:= OpenDialog1.FileName;

MediaPlayer1.Open;

{определяем область показа видеофайла (прямоугольник)}

MediaPlayer1.DisplayRect:=Rect(10,10,Panel1.Width-10,

Panel1.Height-10);

MediaPlayer1.Play;

end;

d) Проверьте работу проекта.

Задание 2. Разработайте проект, который конструирует и выводит на форму фразу английского языка “The something is on (under, near) the something”. Оформите список предметов этой фразы с помощью двух компонентов ListBox, выбор предлога осуществите с помощью компонента RadioGroup. При построении фразы на каждом этапе должен быть доступен только один из компонентов. На этапе выполнения форма должна иметь следующий вид:

Не нашли, что искали? Воспользуйтесь поиском: