17.05.2010, 13:36
|
|
Местный
|
|
Регистрация: 04.04.2008
Адрес: Минск
Сообщения: 596
Версия Delphi: 2007 & JAVA EE
Репутация: 10670
|
|
Ужасно криво, но думаю натолкнет на мысли
Код:
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.
|