Re: TShockwaveFlash Activex
- From: AniMatrix84@xxxxxxxxx
- Date: 12 Oct 2006 14:33:07 -0700
Hi again,
Here an even more complete one, this one takes care about Maximize and
Restore actions.
--------------------------------------------------------------
unit untFrmMain;
interface
uses blabla;
type
TfrmMain = class(TForm)
procedure WMExitSizeMove(var AMsg:TMessage); message
WM_EXITSIZEMOVE;
procedure WMSize(var AMsg: TWMSize); message WM_SIZE;
end;
var
FResized:Boolean;
FMaximized:Boolean;
implementation
procedure TfrmMain.WMExitSizeMove(var AMsg: TMessage);
begin
inherited;
// WMP is Windows Media Player here
WMP.DoObjectVerb(-1);
end;
procedure TfrmMain.WMSize(var AMsg: TWMSize);
begin
inherited;
if (AMsg.SizeType=SIZE_RESTORED) and FMaximized then
begin
WMP.DoObjectVerb(-1);
FMaximized := False;
end;
if (AMsg.SizeType=SIZE_MAXIMIZED) then
begin
WMP.DoObjectVerb(-1);
FMaximized := True;
end;
end;
end.
--------------------------------------------------------------
Please reply!
Grtz,
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
.
- References:
- TShockwaveFlash Activex
- From: dvddude
- TShockwaveFlash Activex
- Prev by Date: Re: TShockwaveFlash Activex
- Next by Date: Re: Link my help file to my application install path
- Previous by thread: Re: TShockwaveFlash Activex
- Next by thread: WebBrowser - What am i doing wrong?
- Index(es):
Relevant Pages
|
