Dichoso boton Play de TMediaplayer

[alquimista]

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:

  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*]

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]

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

Muchas gracias Caro, solución impecable.