Mediaplayer et fullscreen

Question

Salut ! J'ai un petit probleme : je debute en Delphi et je voudrais realiser des applications avec des videos, mais je n'arrive pas a les mettre en plein ecran avec le controle TMediaPlayer... Est-ce que quelqu'un sait comment je pourrais faire ? Merci de me repondre !
Wildelnab@netcourrier.com

cs_Gysmo · Answer

Faut faire passer la fiche en taille maximal (WindowsStata:=wsMaximized) puis faire disparaitre la bordure (BordureStyle:=bsNone) enfin tu faire recouvrir la zone client de la fiche par la zone de TAnimate (Animate.Height:=Form.ClienHeigt; Animate.Width:=Form.ClienHeight).

Tu fais appliquer c'est modification lors d'un evenement OnClick sur un bouton par exemple.

Et voila un zolie FullScreen!

Babaille

cs_Bui · Answer

Merci Babaille pour ta reponse, mais ca marche toujours po ! En fait, le controle Animate prend bien tout l'ecran, mais la video reste en haut à gauche du controle : elle ne veut pas s'etirer aux dimensions du TAnimate... Alors ma question maintenant c'est : comment faire en sorte d'etirer une video.

Merci ! 
Bui

cs_Gysmo · Answer

Moi c'est Gysmo et non Babaille (=Bye-Bye en fr) !!!

Il faut mettre AutoSize a false aussi alors je crois.

Bye Bye!!!

cs_Bui · Answer

Oooooops pardon Gyzmo !

Ben non, ça marche toujours po... J'ai bien enlevé la propriété autosize du TAnimate mais la video reste skotchée en haut à gauche du TAnimate...
Snif...
Peux-tu me dire si ça marche sur ton ordi ?

Bui

yoghisan · Answer

Tu peux me dire si tu y es arriv&#233; ? si oui comment ?

Mediaplayer et fullscreen

5 réponses

Votre réponse

Discussions similaires