|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
MediaPlayer на весь экран.
Hi all.
Я воспроизвожу видео через стандартный проигрыватель Delphi. Свойство Display у меня = nil, поэтому показ фильма происходит в отдельном окне, как и задумано. Проблема: окно слишком мелкое. Вопрос: как мне растянуть это окно на весь экран? Делаем'c разные игры. Искать на glscene.ru |
#2
|
|||
|
|||
Попробуй найти это окно и максимизировать его средствами WinAPI (SetWindow, SetWindowLong, SendMessage(WM_MAXIMIZE))
|
#3
|
|||
|
|||
Цитата:
Делаем'c разные игры. Искать на glscene.ru |
#4
|
||||
|
||||
можно создать свое окно, в котором будет отображаться видео, т.е., собственная форма, заранее сделанная, и при открытии видео данных, она будет дисплеем, а на счет "ресайза", в обработчике формы сделай обработку на изменение размера, либо "фуул" экран....
если суть изложенного не ясна, позже примерчик скину..!!! либо пиши в ЛС, асю... |
#5
|
||||
|
||||
вот примерчик:
|
#6
|
|||
|
|||
Цитата:
Цитата:
Вот такой вопрос. У Медиаплеера есть свойство MediaPlayer.Display.Align. Можно сделать так: MediaPlayer.Display.Align:=AlClient, но так вылетает ошибка AccesViolation. Почему? В Display ничего не записывал. Делаем'c разные игры. Искать на glscene.ru Последний раз редактировалось DungeonLords, 16.05.2010 в 00:32. |
#7
|
||||
|
||||
Цитата:
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#8
|
||||
|
||||
Цитата:
ну так не долго передалать мой вариант, под твой...!!!! позже другой вариант выложу, сейчас у меня идет пред.защита диплома и скоро сама защита!! время будет сделаю |
#9
|
||||
|
||||
Ужасно криво, но думаю натолкнет на мысли
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls; type TForm1 = class(TForm) MediaPlayer1: TMediaPlayer; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormResize(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; dis:Tform; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var g:trect; begin dis.Show; dis.OnResize:=form1.OnResize; //тут надо написать свою проц. для резайза MediaPlayer1.Display:=dis; MediaPlayer1.FileName:='E:\CBD\books\Delphi\DW\base\images\splash.avi'; MediaPlayer1.open; MediaPlayer1.DisplayRect:=Rect(0, 0, dis.Width, dis.Height); MediaPlayer1.Play; end; procedure TForm1.FormResize(Sender: TObject); begin MediaPlayer1.DisplayRect:=Rect(0, 0, dis.Width, dis.Height); end; procedure TForm1.FormCreate(Sender: TObject); begin dis:=TForm.Create(form1); end; end. |