
![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
![]() ![]() |
![]() |
Гость |
![]() ![]()
Сообщение
#1
|
Гость ![]() |
У меня такая проблема - Когда я воспроизвожу видео на TPanel то у меня при изменение размеров экрана обрезается видео!А мне нужно чтобы оно сжималось под измененный экран!
![]() |
Klose |
![]()
Сообщение
#2
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 32 Пол: Мужской Репутация: ![]() ![]() ![]() |
Не знаю точно, но вроде если так, то должно получиться :
На событие OnResize формы нужно написать: Код MediaPlayer1.DisplayRect:=Rect(0,0, Panel1.Width, Panel1.Height); Тип того. ![]() Сообщение отредактировано: Klose - |
volvo |
![]()
Сообщение
#3
|
Гость ![]() |
Klose, а с чего это ты решил, что видео воспроизводится через TMediaPlayer? Телепатия? Или в вопросе было что-то такое, что видишь только ты? Или по-твоему ТОЛЬКО TMediaPlayer способен воспроизводить видео?
|
Klose |
![]()
Сообщение
#4
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 32 Пол: Мужской Репутация: ![]() ![]() ![]() |
volvo
Ну, если не используют TMediaPlayer - значит не воспользуются. Всеравно ведь не написано. |
Артемий |
![]()
Сообщение
#5
|
![]() Помощник капитана ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: ![]() ![]() ![]() |
Я пользуюсь TMediaPlayer!(я автор). Klose не работает!
![]() -------------------- Dum spiro spero!
|
Klose |
![]()
Сообщение
#6
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 32 Пол: Мужской Репутация: ![]() ![]() ![]() |
Ошибочка, на OnResize панели. Все работает проверил.
Первый вариант тоже робит. Воть: Код unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MPlayer, ExtCtrls; type TForm1 = class(TForm) Panel2: TPanel; MediaPlayer1: TMediaPlayer; procedure FormCreate(Sender: TObject); procedure Panel2Resize(Sender: TObject); procedure FormResize(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin MediaPlayer1.DisplayRect:=Rect(0,0, Panel2.Width, Panel2.Height); MediaPlayer1.Display:=Panel2; MediaPlayer1.FileName:='SidNansy.wmv'; MediaPlayer1.Open; MediaPlayer1.Play; end; procedure TForm1.Panel2Resize(Sender: TObject); begin //MediaPlayer1.DisplayRect:=Rect(0,0, Panel2.Width, Panel2.Height); end; procedure TForm1.FormResize(Sender: TObject); begin MediaPlayer1.DisplayRect:=Rect(0,0, Panel2.Width, Panel2.Height); end; end. Сообщение отредактировано: Klose - |
Артемий |
![]()
Сообщение
#7
|
![]() Помощник капитана ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: ![]() ![]() ![]() |
СПАСИБО!
![]() ![]() ![]() ![]() ![]() -------------------- Dum spiro spero!
|
![]() ![]() |
![]() |
Текстовая версия | 21.04.2025 5:40 |