FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
¿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. |
#3
|
||||
|
||||
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.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#4
|
|||
|
|||
si muchas gracias!!era justo lo que necesitaba.gracias tambien por aconsejarme lo del panel.thanks
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Video TCP/IP | Onti | Redes | 0 | 13-02-2007 01:00:27 |
Insertar Video, o vista preeliminar de video | JuanErasmo | .NET | 0 | 10-01-2007 20:27:20 |
Streaming de Video | Rabata | Varios | 0 | 18-10-2005 12:06:21 |
Visualizar video | D@byt | Gráficos | 1 | 15-09-2005 06:43:26 |
Video Net | ramonibk | Varios | 0 | 23-12-2004 13:48:57 |
|