Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

17th
Мар

Проигрывание видео, как сделать на весь экран?

Posted by Chas under Delphi

Можно сделать на весь экран вопроизведение? Чтобы чисто окно проигрывателя было без кнопок Play. Stop и т.д.?

саша40
1- Воспроизводим на панель
2- Сносим BorderStyle.
3- Ставим форму поверх всех окон
4- Скрываем кнопки(сделай popupmenu, чтобы можно было выйти из полноэкраного режима), скроллбары и прочее, кроме панели.
5- Свойство Allign у панели на AlClient.
6- Тоже свойство у формы на AlClient.
7- WindowState на wsMaximized.

raxp

var wmp: TWindowsMediaPlayer;

...

begin

 // динамически создаем экземпляр WMP- клиента

 wmp:= TWindowsMediaPlayer.Create(self);

 with wmp do begin

  TabOrder:= 1;

  // растягиваем контрол на всю форму

  align:= alclient;

  // делаем родителем форму

  parent:= Form1;

 end;
 // растягиваем видео на весь контрол

 wmp.ControlInterface.stretchToFit:= true;

тема на форуме