AVI файл в делфи, помогите разобраться

[Middle.Cry]

Подскажите плз как можно непреравно воспроизвидить avi файл в делфи, и чтобы не в отдельном окне, а на самой форме+автоматически без наведение и всяких щелчков, заранее очень благодарен, подскажите кому не составит труда

[Stilet]

Ну кинь на форму TMediaPlayer и проигрывай на здоровье скока нужно.

[Middle.Cry]

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

[Stilet]

во-первых в новом окне

Дык, MediaPlayer1.Display:=Form1; пропиши,

во-вторых нужно нажимать обязательно на кнопку "плей"

Да брось, есть метод MediaPlayer1.Play, вот и вызывай его когда нуна (например при активайии формы)

[Middle.Cry]

Пасиба, усе работает, а нельза как нить поставить ее в определенное место программыа то она запускаеться только в верхнем углу формы?

[mihali4]

Можно. Например, так:

procedure TForm1.FormActivate(Sender: TObject);
var myrect: TRect;
begin
myrect.Left:=100;
myrect.Top:=100;
myrect.Right:=600;
myrect.Bottom:=300;
MediaPlayer1.Play;
MediaPlayer1.DisplayRect:=myrect;
end;

[Middle.Cry]

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin with MediaPlayer1 do
    if NotifyValue = nvSuccessful then
      begin
        Notify := True;
        Play;
      end;
end;

procedure TForm1.FormActivate(Sender: TObject);
var myrect: TRect;
begin
  myrect.Left:=100;
  myrect.Top:=100;
  myrect.Right:=600;
  myrect.Bottom:=300;
MediaPlayer1.Play;
MediaPlayer1.DisplayRect:=myrect;
end;

end.

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

[Stilet]

Не парься - растяни на форме панель где нуна и поставь в Display эту панель.

[mutabor]

http://www.programmersforum.ru/showp...1&postcount=10

[Middle.Cry]

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

Не парься - растяни на форме панель где нуна и поставь в Display эту панель.

Спасибо огромное, правда не пойму у мну была уже такая идея, я попробовал её но она не заработала, а щас попробовал и пашет), наверно в тот раз просто где то ошибочку сделал), спасиб еще раз..