Ver Mensaje Individual
  #2  
Antiguo 10-08-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola sbraceras.

Cita:
No puedo usar ese componente sin asociarle una ventana 'padre'?
No, pero podes enviar el parent como parámetro a la unidad. Por si te sirve de guía, te pongo un código de ejemplo (muy básico) de como podrías hacer:
Código Delphi [-]
unit Unit2;

interface

uses Controls, MPlayer;

type
  TClase = class(TObject)
  private
    ...
    procedure PlayMediaNotify(Sender: TObject);
  public
    ...
    procedure PlayMedia(aWCtrl: TWinControl; const aFileName: string);
    ...
  end;

var
  MClase: TClase;

implementation

...
procedure TClase.PlayMediaNotify(Sender: TObject);
begin
  with TMediaPlayer(Sender) do
    if NotifyValue in [nvSuccessful,nvFailure] then
      Free;
end;

procedure TClase.PlayMedia(aWCtrl: TWinControl; const aFileName: string);
begin
  with TMediaPlayer.Create(nil) do
  begin
    Parent:= aWCtrl;
    Close;
    OnNotify:= PlayMediaNotify;
    FileName:= aFileName;
    Open;
    Play;
  end;
end;
...

end.

Llamada:
Código Delphi [-]
uses Unit2;
...
procedure TForm1.Button1Click(Sender: TObject);
...
begin
  ...
  MClase.PlayMedia(Form1,'C:\Users\Usuario\Music\Prueba.mp3');
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 10-08-2012 a las 10:23:50. Razón: ortografía
Responder Con Cita