Ver Mensaje Individual
  #2  
Antiguo 12-05-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola alquimista, si quieres que funcione de la forma que indicas, debes mantener la propiedad AutoEnabled en False y habilitar y desabilitar tu los botones.

Código Delphi [-]
with mp3player do
    begin
     Close;
     FileName:=mp3File; //ruta del archivo mp3

     Open;
     SetMPVolume(mp3Player, TBvolumen.Position); // volumen de la musica

     Play;  // pongo en marcha la reproducción
     
     Autoenable:=false;
     EnabledButtons := [BtPause,BtStop];
    end;
 
 
//En el evento OnClick de tu MediaPlayer
procedure TForm1.mp3playerClick(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
  With mp3player do begin
   Case Button of
    btPlay : EnabledButtons := [btPause, btStop];
    btStop : begin
              EnabledButtons := [btPlay];
              Position := 0;
             end;
    btPause : EnabledButtons := [btPlay, btPause, btStop];
   end;
  end;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita