¿Cambio de tamaño en TWindowsMediaPlayer (activeX)?
 

Hola a todos.

He importado esta libreria y cuando inserto este componente, si reproduzco un video se me queda con el tamaño que le he dejado en diseño.

Pero si lo creo en runtime, me coge el tamaño de la resolución del video a reproducir.

No encuentro por ningún lado alguna propiedad que sea Autosize, Stretch, etc.

¿Alguien sabe como controlar esto?

Gracias

Solucionado
 

Bueno, pues después de leer foros en todo el mundo, por fin lo he conseguido.

Para el que tenga el mismo problema:

Código Delphi [-]
procedure TMultimedia.FormActivate(Sender: TObject);
var mul: TWindowsMediaPlayer;
     x, y: Integer;
begin
      Mul:=TwindowsMediaPlayer.Create(Self);
      mul.Parent:=Multimedia;
      mul.Name:='M';
      mul.Top:=y;
      mul.Left:=x;
      mul.Width:=300;
      mul.Height:=225;
      mul.uiMode:='full';  //Para quitar los botones de control poner 'none'
      mul.DoObjectVerb(0);  //Esta es la propiedad que ajusta el tamaño.
      mul.URL:=Ruta Archivo;