Objeto sobre vídeo

[João Paulo Taraciuk]

Olá

Estou criando um aplicativo para reproduzir vídeos, então, tenho que colocar um panel e uma imagem no canto desse vídeo.

Tentei com o mediaPlayer e com o WindowsMediaPlayer mas não consegui apresentar esse objeto quando o mesmo está em tela cheia. Com o MediaPlayer, não consegui fazer a imagem aparecer sobre o display do vídeo nem em tamanho normal.

Tentei fazer dessa forma:

    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.Display := Panel1;
    MediaPlayer1.DisplayRect := Panel1.ClientRect;
    Image1.Parent := MediaPlayer1;
    Image1.Left := 10;
    Image1.Top := 10;

Mas não aparece a imagem na frente do vídeo.

Como eu poderia fazer para que essa imagem apareça, mesmo que eu coloque esse vídeo para ser mostrado em fullscreen, que no caso do TMediaPlayer, será feito redimensionando o form para FullScreen:

    Form1.BorderStyle := bsNone;
    Top := 0;
    Left := 0;
    Width := Screen.Width ;
    Height := Screen.Height;
    Panel1.Align := alClient;
    MediaPlayer1.DisplayRect := Panel1.ClientRect;

[Jhonas]

Tente usar o componente flash player

http://www.google.com.br/search?q=flash+player+delphi+component&hl=pt&gbv=2&o que=+flash+player+delphi&gs_l=heirloom-serp.1.1.0i7i30i19j0i19j0i8i30i19l3j0i10i30i19j0i8i30i19l4.120842.120842.0.125199.1.1.0.0.0.0.276.276.2-1.1.0....0...1ac.1.24.heirloom-serp..0.1.276.5NVbzoJiWoQ

abraço