Re: TShockwaveFlash Activex

Hi,

I've tried it for some time and tried something like this:
WindowsMediaPlayer.SetBounds(0, 0, ClientWidth, ClientHeight);
WindowsMediaPlayer.SetFocus;
WindowsMediaPlayer.Realign;
WindowsMediaPlayer.Refresh;
WindowsMediaPlayer.Repaint;
WindowsMediaPlayer.stretchToFit := True;
Application.ProcessMessages;
WindowsMediaPlayer.stretchToFit := False;

But that all does not work.

HERE you'll find a good way to do it, but if I do the code in a forms
OnResize I can only resize 1 or 2 pixels at a time because the function
will stop the resizing operation I think. So maybe if there was
something like OnResizeD that it would success. I will try Google one
more time to find such a thing. Maybe its only with a Windows Media
Player control I'm using.

WMP.DoObjectVerb(-1);

LINK:
http://www.delphipages.com/news/detaildocs.cfm?ID=46

If I find a better way the OnResize (which just does not work well
yet), I will 'reply' again.

Greetz,
AniMatrix


dvddude schreef:

HI everyone,

I have imported the TShockWaveflash activeX control into Delphi 7 so that my
application can play a flash movie.

Now everything works fine until i resize the form at runtime. The flash
control take the original size of the form, and stays at that size
regardless. The extra area formclient area just doesn't repaint and stays
looking like the desktop beneath it.

The TShockWaveFlash component has its Align property set to alClient.

I have tried invalidating both the for and the shockwave component inside
the form's OnResize event, but this doesn't help either.

Does anyone know why the shockwaveflash component will not resize to fill
the client area?

Thanks

Vertuas

.