Problème avec l'ActiveX Windows Media Player

Bonjour, j'ai un problème avec le redimensionnement de l'activeX windows media player.

J'essaye de faire une petit programme utilisant le composant activeX Windows Media Player. L'ayant installer dans la palette OCX, malgré l'absence de la propriété Align, celle ci est quand même utilisable via le code.
Donc en créant ma fiche support du composant (FormCreate) j'initialise la propriété Align à AlClient et en démarrant l'exécution du programme, le composant s'adapte bien à la dimension de la fiche. Le problème est que quand je redimensionne ma fiche, le composant Windows Media Player ne se redimensionne pas à la nouvelle taille imposée par la fiche, il garde les dimensions avec lesquelles il s'était initialisé.

J'ai donc essayé de forcer les dimensions par les propriétés classiques (width, height, left, top, clientwidth, clientheight, SetBounds), sans succès.

J'ai utilisé les méthodes refresh, invalidate, update, Paint, RePaint, sans succès aussi.

J'ai eu un résultat grâce à la méthode ReCreateWnd mais lorsque un film était chargé et lancé, je perdais le film comme si le composant se réinitialisait.

Bref si quelqu'un a une petite idée pour résoudre mon problème, ce serait gentil de sa part.

Merci

Vous pouvez essayer cela. Cela fonctionnait avec Delhi7. Par contre j'ai pus l'enlever avec delphi2007. C'était devenue inutile.

Code:

---

1 2 3 4 5 6 7

if Parent <> nil then begin try TLocOleCtrl(MediaPlayer).OnPosRectChange(Rect(0,0,ClientWidth, ClientHeight)); except end; end;

---