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
PlayMediaIn(Panel1, 'C:\Users\Public\Videos\Sample Videos\Butterfly.wmv');
end;
...
Saludos.