Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Как развернуть окно на весь экран?   Найти похожие ветки 

 
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 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.064 c
3-1173306371
databaser
2007-03-08 01:26
2007.05.27
Сравнение запросов


5-1154348686
Peak
2006-07-31 16:24
2007.05.27
Программный DragDrop


2-1178727526
Dmitry_177
2007-05-09 20:18
2007.05.27
Ограниченное количество цифр в Edit при вставлении


15-1177872605
antonn
2007-04-29 22:50
2007.05.27
Вопросик по регулярным выражениям. В пхп:)


15-1177951499
ProgRAMmer Dimonych
2007-04-30 20:44
2007.05.27
Подскажите программу для склеивания MIDI-файлов