Ver Mensaje Individual
  #16  
Antiguo 12-11-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 27
Delphius Va camino a la fama
Karen08,
Arrastra el componente,
y el evento onChange del Combo, debes hacer algo como esto:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  MediaPlayer1.FileName := 'El Path completo donde está el archivo';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

Obviamente no debes sustituir tu código anterior. Sino que debes adapta al código que te muestro de la forma que mantenga la coherencia con el tuyo. Por ejemplo, dentro del case:
Código Delphi [-]
case ... of
0: begin
    Label1.Caption := ....
    MediaPlayer1.FileName ....
    end;

No tiene demasiada ciencia el TMediaPlayer. Si tienes más dudas, haz una búsqueda que en reiteradas ocasiones se ha preguntado sobre el componente.

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita