Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Dichoso boton Play de TMediaplayer (https://www.clubdelphi.com/foros/showthread.php?t=67871)

alquimista 11-05-2010 20:09:52

Dichoso boton Play de TMediaplayer
 
Muy buenas..

Tengo un problemilla que seguro tendrá fácil solución, pero no la veo.

He puesto un Tmediaplayer para tocar mp3 y le doy la orden Play, pero no se desactiva el botón de play.
Me explico mejor..
He dejado 3 botones del Tmediaplayer el play, pausa y stop.
Al seleccionar un mp3 con doble clic se pone en marcha la música y debería de desactivarse el play y activarse los botones de pausa y stop.

Pues esto no me pasa y tengo que pulsar con el ratón el play para que pase lo anterior.

El código que uso es:

Código:

  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]; //intento de hacer algo con los botones sin éxito
    //Autoenable:=true;
    end;

A ver si alguien me puede dar una solución.
Se que podria crear botones bitbtn, etc... , pero es por si se puede hacer con el control TMediaPlayer.

Un saludo a todos los genios de Clubdelphi

Caro 12-05-2010 17:00:00

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

alquimista 12-05-2010 21:36:02

Probado y funcionando a la perfección.
No tenia ni idea de lo del evento onclick

Muchas gracias Caro, solución impecable.:):):):):):):)


La franja horaria es GMT +2. Ahora son las 14:29:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi