[DungeonLords]

Hi all.

Я воспроизвожу видео через стандартный проигрыватель Delphi. Свойство Display у меня = nil, поэтому показ фильма происходит в отдельном окне, как и задумано. Проблема: окно слишком мелкое. Вопрос: как мне растянуть это окно на весь экран?

[lmikle]

Попробуй найти это окно и максимизировать его средствами WinAPI (SetWindow, SetWindowLong, SendMessage(WM_MAXIMIZE))

[DungeonLords]

Сообщение от lmikle

Попробуй найти это окно и максимизировать его средствами WinAPI (SetWindow, SetWindowLong, SendMessage(WM_MAXIMIZE))

Ума не приложу, как найти это окно.

[RusMaXXX]

можно создать свое окно, в котором будет отображаться видео, т.е., собственная форма, заранее сделанная, и при открытии видео данных, она будет дисплеем, а на счет "ресайза", в обработчике формы сделай обработку на изменение размера, либо "фуул" экран....

если суть изложенного не ясна, позже примерчик скину..!!! либо пиши в ЛС, асю...

[RusMaXXX]

вот примерчик:

[DungeonLords]

Сообщение от RusMaXXX

вот примерчик:

Сообщение от RusMaXXX

можно создать свое окно, в котором будет отображаться видео, т.е., собственная форма, заранее сделанная, и при открытии видео данных, она будет дисплеем, а на счет "ресайза", в обработчике формы сделай обработку на изменение размера, либо "фуул" экран....

если суть изложенного не ясна, позже примерчик скину..!!! либо пиши в ЛС, асю...

Спасибо за идею и демку. Но оно мне не подходит, нужно, чтобы формочка создавалась в runtime.

Вот такой вопрос. У Медиаплеера есть свойство MediaPlayer.Display.Align. Можно сделать так: MediaPlayer.Display.Align:=AlClient, но так вылетает ошибка AccesViolation. Почему? В Display ничего не записывал.

[PhoeniX]

Сообщение от DungeonLords

У Медиаплеера есть свойство MediaPlayer.Display.Align. Можно сделать так: MediaPlayer.Display.Align:=AlClient, но так вылетает ошибка AccesViolation. Почему? В Display ничего не записывал.

Display = nil, поэтому и обратиться к его свойствам нельзя.

[RusMaXXX]

Сообщение от DungeonLords

Спасибо за идею и демку. Но оно мне не подходит, нужно, чтобы формочка создавалась в runtime.

Вот такой вопрос. У Медиаплеера есть свойство MediaPlayer.Display.Align. Можно сделать так: MediaPlayer.Display.Align:=AlClient, но так вылетает ошибка AccesViolation. Почему? В Display ничего не записывал.

ну так не долго передалать мой вариант, под твой...!!!! позже другой вариант выложу, сейчас у меня идет пред.защита диплома и скоро сама защита!! время будет сделаю

[friz]

Ужасно криво, но думаю натолкнет на мысли

Код:

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.