video
hola amigos mi codigo es este:
-------------------------------------------------------- procedure TForm1.FormCreate(Sender: TObject); begin form1.MediaPlayer1.DisplayRect:=form1.Panel1.ClientRect; form1.MediaPlayer1.Play; if form1.MediaPlayer1.position=form1.MediaPlayer1.length then begin form1.Edit1.Visible:=true; end; end; ---------------------------------------------------------------- Lo que se supone que deberia hacer es que aparezca un video nada mas abrirse el formulario,y cuando este llegase a su fin,que el edit se vea. no encuentro ninguna manera para hacer que cuando se acabe el video realize un accion.se que esto esta mal: if form1.MediaPlayer1.position=form1.MediaPlayer1.length then begin pero nose q poner. |
¿El objeto "MediaPlayer1" no tiene un evento que salte al finalizar la reproducción? Si es así, úsalo.
Por otro lado, además de "form1.Edit1.Visible := TRUE" deberías utilizar también "form1.Panel1.Visible := FALSE" para ocultarlo. |
El OnNotify se dispara cada que el TMediaPlayer termina de hacer algo, al Rebobinar, Adelantar, Después que termina de hacer un Play, Etc...
Quizá te sirva ese evento y lo puedas adecuar de alguna manera a tu necesidad, un ejemplo veloz seria el siguiente: Deja el código que tenes así:
Y en el OnNotify debe quedar el resto: Espero te sirva. |
si muchas gracias!!era justo lo que necesitaba.gracias tambien por aconsejarme lo del panel.thanks
|
La franja horaria es GMT +2. Ahora son las 19:24:32. |
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