probleme pour animate

salut
g un souci lors de l'ouverture auto de mon TForm
cad que normalement un video avi devrait se lancer automatiquement dans mon animate...
Prob il souvre ds un autre fenetre

Que dois-je faire ????

voici un morceau de code:

FicIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'LAUNCH.ini');
adr := FIcini.ReadString('IMAGES','THUMB','');
film := FIcini.ReadString('FILMSTART','FILE','');
Delphi_Ad.Image1.Picture.LoadFromFile(adr);
VideoPlayer1.Filename := film;
VideoPlayer1.Display := Animate1 ;
VideoPlayer1.DeviceType := dtAutoSelect;
VideoPlayer1.open;
VideoPlayer1.Play ;
VideoPlayer1.AutoRewind := False;
Ficini.Free;


merci d'avance a+
ju

Si c un MediaPlayer, au lieu de mettre ceci dans le code VideoPlayer1.Display := Animate1; essaye de specifier a MediaPlayer dans l'inspecteur d'objet Animate1 pour Display (ecris en rouge enfin j'crois...). Sinon je sais po! ;-)

Gysmo34, j'te copite ;-)



-------------------------------
Réponse au message :
-------------------------------

salut
g un souci lors de l'ouverture auto de mon TForm
cad que normalement un video avi devrait se lancer automatiquement dans mon animate...
Prob il souvre ds un autre fenetre

Que dois-je faire ????

voici un morceau de code:

FicIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'LAUNCH.ini');
adr := FIcini.ReadString('IMAGES','THUMB','');
film := FIcini.ReadString('FILMSTART','FILE','');
Delphi_Ad.Image1.Picture.LoadFromFile(adr);
VideoPlayer1.Filename := film;
VideoPlayer1.Display := Animate1 ;
VideoPlayer1.DeviceType := dtAutoSelect;
VideoPlayer1.open;
VideoPlayer1.Play ;
VideoPlayer1.AutoRewind := False;
Ficini.Free;


merci d'avance a+
ju

Si animate1 est un Tpanel je vois pas ou est le probleme....



-------------------------------
Réponse au message :
-------------------------------

salut
g un souci lors de l'ouverture auto de mon TForm
cad que normalement un video avi devrait se lancer automatiquement dans mon animate...
Prob il souvre ds un autre fenetre

Que dois-je faire ????

voici un morceau de code:

FicIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'LAUNCH.ini');
adr := FIcini.ReadString('IMAGES','THUMB','');
film := FIcini.ReadString('FILMSTART','FILE','');
Delphi_Ad.Image1.Picture.LoadFromFile(adr);
VideoPlayer1.Filename := film;
VideoPlayer1.Display := Animate1 ;
VideoPlayer1.DeviceType := dtAutoSelect;
VideoPlayer1.open;
VideoPlayer1.Play ;
VideoPlayer1.AutoRewind := False;
Ficini.Free;


merci d'avance a+
ju