video

[machingol]

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.

[Ñuño Martínez]

¿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.

[jhonny]

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í:

Código Delphi [-]
   form1.MediaPlayer1.DisplayRect:=form1.Panel1.ClientRect;
   form1.MediaPlayer1.Play;

Y en el OnNotify debe quedar el resto:

Código Delphi [-]
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if form1.MediaPlayer1.position=form1.MediaPlayer1.length then 
     form1.Edit1.Visible:=true;
end;

Espero te sirva.

[machingol]

si muchas gracias!!era justo lo que necesitaba.gracias tambien por aconsejarme lo del panel.thanks