Control '' has no parent window (TMediaPlayer)

[ecfisa]

Hola de nuevo.

Se me ocurrió , que si no precisas la presencia de los TButtonSet, sería mas sencillo y versátil usar la función mciSendString:

Código Delphi [-]
unit Unit2;
....

implementation

uses MMSystem;

procedure PlayMediaIn(aWCtrl:TWinControl; aFile: string);
var
 mciStr: string;
begin
  mciStr:= Format('%d %d %d %d',[aWCtrl.Left,aWCtrl.Top,aWCtrl.Width,aWCtrl.Height]);
  mciSendString('close alias1', nil,0, 0);
  mciSendString(PChar('open "' + aFile + '" alias alias1'), nil, 0, 0);
  mciSendString(PChar('window alias1 handle ' + IntToStr(aWCtrl.Handle)), nil,0,0);
  mciSendString(PChar('put alias1' + mciStr),nil,0,0);
  mciSendString('play alias1', nil, 0, 0);
end;
...
end.

Llamada de ejemplo:

Código Delphi [-]
uses Unit2;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  // reproduce en un TPanel, TForm, etc.
  PlayMediaIn(Panel1, 'C:\Users\Public\Videos\Sample Videos\Butterfly.wmv');
end;
...

Saludos.