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