Форум: "Media";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];
ВнизКак развернуть окно на весь экран? Найти похожие ветки
← →
SlayerX © (2006-09-15 08:38) [0]Я сделал видео плейер и не могу развернуть окно где пройгывается видео на весь экран??? ПОМОГИТЕ ! ! !
← →
SlayerX © (2006-09-15 08:49) [1]<font color= "Blue">Я тут попробова например:
{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:\TheWall\DELCAR2.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;
А ещё есть примеры.</font>
← →
Virgo_Style © (2006-09-15 12:35) [2]не ори
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.059 c