ahora bien hice algo como esto: con 2 botones un play y un stop pero con showmodal no me muestra el video, que puedo hacer para que cuando se empieze a mostrar el video no permita cambiar de ventana hasta que este termine, claro utilizando el notify del mediaplayer , que para el ejemplo no lo puse.
Código Delphi
[-]
procedure TForm1.SpeedButton3Click(Sender: TObject);
var
forma2: Tform2;
begin
form2:= Tform2.create(application);
form2.caption:= 'reproduccion de video';
form2.showmodal;
mediaplayer1.display:= form2.RichEdit1;
mediaplayer1.play;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
mediaplayer1.stop;
form2.Free ;
end;
gracias, ahora esto es correcto?