Ver Mensaje Individual
  #25  
Antiguo 13-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,
¿Eso te compila?
Yo le veo un par de errores. Lo que tu deseas realizar debe ir todo en el evento onChange. Así:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  { Lo siguiente está de más!
  MediaPlayer1.FileName := 'D:\bajados\sonidos\';
  MediaPlayer1.Open;
  MediaPlayer1.Play; }

{end; ¡Este en está de más! }

  // ´Paso 1: Elegimos un archivo
  case combobox1.ItemIndex of
  0: begin
       Label1.Caption := 'ONE';
       MediaPlayer1.FileName := 'D:\bajados\one.mp3';
     end;
  1: begin
       Label1.Caption := 'TWO';
       MediaPlayer1.FileName := 'D:\bajados\two.mp3';
     end;
  2: begin
       Label1.Caption := 'THREE';
       MediaPlayer1.FileName := 'D:\bajados\three.mp3';
     end;
  3: begin
       Label1.Caption := 'FOUR';
       MediaPlayer1.FileName := 'D:\bajados\four.mp3';
     end;
  4: begin
       Label1.Caption := 'FIVE';
       MediaPlayer1.FileName := 'D:\bajados\five.mp3';
     end;
  5: begin
       Label1.Caption := 'SIX';
       MediaPlayer1.FileName := 'D:\bajados\six.mp3';
     end;
  6: begin
       Label1.Caption := 'SEVEN';
       MediaPlayer1.FileName := 'D:\bajados\seven.mp3';
     end;
  7: begin
       Label1.Caption := 'EIGHT';
       MediaPlayer1.FileName := 'D:\bajados\eight.mp3';
     end;
  8: begin
       Label1.Caption := 'NINE';
       MediaPlayer1.FileName := 'D:\bajados\nine.mp3';
     end;
  9: begin
       Label1.Caption := 'TEN';
       MediaPlayer1.FileName := 'D:\bajados\ten.mp3';
     end;
  end; // fin case

  // Paso 2: Una vez elegida la música, abrimos y reproducidos
  // el archivo
  MediaPlayer1.Open;
  MediaPlayer1.Play;
{ LO que sigue está de más!
0:label1.Caption:= 'ONE';
1:label1.Caption:= 'TWO';
2:label1.Caption:= 'THREE';
3:label1.Caption:= 'FOUR';
4:label1.Caption:= 'FIVE';
5:label1.Caption:= 'SEX';
6:label1.Caption:= 'SEVEN';
7:label1.Caption:= 'EIGHT';
8:label1.Caption:= 'NINE';
9:label1.Caption:= 'TEN';  }
end;   {Fin evento onChange}

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

end.

No es por malo, pero deberías prestar mayor atención a la lógica de tu aplicativo. Compara tu código con este. Lo que está en comentarios o es porque está de más o es para hacer algunas notas aclaratorias.
Los códigos que te vinimos proporcionando debías ajustarlo a tus necesidades, tal parece que el error se debió a que viniste copiando y pegado y haciendo pruebas... No está mal, asi se aprende. Así aprendí yo.

Recuerda que preferimos dar TIPs antes de ofrecer una solución, al menos yo, considero que de esta manera se invita al que inició el hilo a pensar y fomentar el arte de la lógica, y por consiguiente comprende por si mismo donde está su error.

Espero que no te moleste.
Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita