Discussion :

[touki79]

slt; je voudrais savoir comment faire pour afficher en plein ecran un fichier mpeg avec le composant Tmediaplayer? merci d'avance

[tintin22]

essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.FullScreenButtonClick(Sender: TObject);
begin
 MediaPlayer1.Display := self;
 MediaPlayer1.DisplayRect := Rect(0, 0, ClientWidth, ClientHeight);
 BorderStyle := bsNone;
 WindowState := wsMaximized;
end;

[touki79]

essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.FullScreenButtonClick(Sender: TObject);
begin
 MediaPlayer1.Display := self;
 MediaPlayer1.DisplayRect := Rect(0, 0, ClientWidth, ClientHeight);
 BorderStyle := bsNone;
 WindowState := wsMaximized;
end;

merci mais c'est la form qui prend le plein ecran!
merci

[Matt2094]

Ensuite, il te suffit de redimenssioner ton composant.

Mais j'ai une question : où trouver ce composant ; ça m'intéresse beaucoup.