Свойство Tpanel!, Свойство TPanel! |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Свойство Tpanel!, Свойство TPanel! |
Гость |
Сообщение
#1
|
Гость |
У меня такая проблема - Когда я воспроизвожу видео на TPanel то у меня при изменение размеров экрана обрезается видео!А мне нужно чтобы оно сжималось под измененный экран!
|
Klose |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Репутация: 0 |
Ошибочка, на 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 - |
Текстовая версия | 27.04.2024 15:29 |