Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-05-2010
alquimista alquimista is offline
Miembro
 
Registrado: Jan 2008
Posts: 191
Poder: 11
alquimista Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 12-05-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: Jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 17
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
  #3  
Antiguo 12-05-2010
alquimista alquimista is offline
Miembro
 
Registrado: Jan 2008
Posts: 191
Poder: 11
alquimista Va por buen camino
Smile

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

Muchas gracias Caro, solución impecable.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
TMediaPlayer y CD Audio MaMu OOP 8 12-04-2008 05:57:33
Como crear una lista de reproducción (play list) Lucass Varios 17 01-10-2007 17:29:17
stop, play, lo más básico de flash elcigarra HTML, Javascript y otros 1 10-04-2007 11:39:03
dichoso separador decimal Lepe Conexión con bases de datos 8 19-04-2004 21:48:25
Sobre TMediaPlayer lafirma Varios 1 05-05-2003 09:39:55


La franja horaria es GMT +2. Ahora son las 17:57:43.


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