Como fundir a negro un video con Mediaplayer

[buenarquero]

Estoy buscando la forma de hacer que un vídeo reproducido con TMediaPlayer, aparezca y desaparezca progresivamente en pantalla, es decir los típicos fundidos "Fade in" y "Fade out". ¿ Alguien sabe como se puede hacer ?. Es para incorporar el efecto en un programa que, aparte de otras cosas, muestra vídeos en pantalla durante un tiempo y es necesario que estos aparezcan progresivamente y desaparezcan de igual forma al empezar la sesión y al terminarla respectivamente.

[[AzidRain]]

Me parece que media player es solo eso, un reproductor de medios, no esperes que haga efectos o cosas así. La forma más simple es editar los videos con otra herramienta y hacer ahí los efectos o bien invertir en componentes especializados para ello.

[buenarquero]

Gracias por tu respuesta, AzidRain, pero lo que pretendo no es editar un vídeo, (eso ya lo hago con Premiere) sino hacerlo aparecer en pantalla de forma progresiva por código en cualquier momento. Ya se también que TMediaPlayer es solo un reproductor y eso es lo que hago con el en mi programa, reproducir los vídeos mostrandolos en un Tpanel, pero estoy seguro que existirá alguna forma de hacer que esos vídeos se hagan visibles progresivamente, quizás usando alguna API de Windows o algo por el estilo, de hecho he visto un truco para hacer lo mismo con una imagen mostrada mediante el componente TImage, pero no se como aplicarlo a un vídeo mostrado en un TPanel o en un TAnimate. A ver si alguien sabe como hacerlo, quizás el que publicó ese truco en otra página, si es que frecuenta este foro. Un saludo!