Ver Mensaje Individual
  #4  
Antiguo 09-10-2007
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.070
Reputación: 32
jhonny Va camino a la famajhonny Va camino a la fama
Bueno, primero que todo lee la guia de estilo, el hecho de que escribas en mayusculas significa que nos estas gritando y ademas es muy molesto de leer, por otro lado una posible solución a tu problema:

Colocale al media player la propiedad Notify en True, asi por ejemplo:

Código Delphi [-]
   MediaPlayer1.Notify := True;

Y en el evento OnNotify del TMediaPlayer le colocas lo siguiente:

Código Delphi [-]
procedure TForm1.MediaPlayer2Notify(Sender: TObject);
begin
  TMediaPlayer(Sender).Play;
end;

Espero te sirva y que leas la guia de estilo http://www.clubdelphi.com/foros/guiaestilo.php

Nota: De todas formas eso no es muy eficiente y en la misma ayuda recomiendan no activar ese evento, pero no encuentro otra forma de hacerlo.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/

Última edición por jhonny fecha: 09-10-2007 a las 23:29:13. Razón: Agregar Nota.
Responder Con Cita