ActiveX Flash dans Delphi : Comment redimensionner ?

J'ai inseré l'activeX ShockWave Flash dans mon appli.
Il fonctionne bien mais lorsque je redimentionne le panel sur lequel mon activeX est placé, l'animation Flash chargée n'est pas redimentionnée automatiquement (j'ai mis autoresize a true)

Je charge l'animation correspondante a mon choix via des boutons radio
Il faut que je re-selectionne l'animation via un nouveau clic sur le bouton radio puis que je clique sur le composant ActiveX et alors il se redimentionne normalement !

J'ai tout essayé dans Panel1Resize : ShockwaveFlash1.Refresh, Width/Height, ShockwaveFlash1.Scale, ShockwaveFlash1.Setfocus, etc. rien a faire !

Avez vous une solution à m'apporter ?

Merci,

Denis

Bonjour ddubois,

Voici une réponse à ta question, sans doute trop tard, mais peut-être qu'elle pourra servir à quelqu'un d'autre. J'ai passé quasiment 2 heures sur ce problème, à tout essayer. J'ai épluché la documentation sur le site d'Adobe, j'ai essayé d'envoyer via un PostMessage() un click dans le composant pour simuler le click.

Finalement en désespoir de cause j'ai essayé un simple changement de focus, et cela fonctionne à merveille.

Il suffit donc de faire sur ton événement onResize() de la TForm :

Code:

---

1 2 3

ShockwaveFlash1->StopPlay(); Button1->SetFocus(); ShockwaveFlash1->SetFocus();

---

Apparemment le StopPlay() est nécessaire, donc plions-nous.

Sinon tu peux utiliser n'importe quel TWinControl à la place de Button1, l'essentiel étant de simuler un changement de focus. En réalité ce qui provoque le rafraîchissement semble être l'arrivée du focus sur le composant.

Raphael Neve
http://www.microtec.fr