Полная версия: Свойство Tpanel!
У меня такая проблема - Когда я воспроизвожу видео на TPanel то у меня при изменение размеров экрана обрезается видео!А мне нужно чтобы оно сжималось под измененный экран!
Не знаю точно, но вроде если так, то должно получиться :
На событие OnResize формы нужно написать:
Тип того.
На событие OnResize формы нужно написать:
Код
MediaPlayer1.DisplayRect:=Rect(0,0, Panel1.Width, Panel1.Height);
Тип того.
Klose, а с чего это ты решил, что видео воспроизводится через TMediaPlayer? Телепатия? Или в вопросе было что-то такое, что видишь только ты? Или по-твоему ТОЛЬКО TMediaPlayer способен воспроизводить видео?
volvo
Ну, если не используют TMediaPlayer - значит не воспользуются.
Всеравно ведь не написано.
Ну, если не используют TMediaPlayer - значит не воспользуются.
Всеравно ведь не написано.
Я пользуюсь TMediaPlayer!(я автор). Klose не работает! 
Ошибочка, на 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.
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.
СПАСИБО! 
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.