Hola Jorghino reyes,
El método ShowModal detiene el hilo de ejecución hasta que se cierra la ventana... yo usaría Show.
Al Form2, ponle en la propiedad
FormStyle = fsStayOnTop,
y defines una variable pública de tipo Boolean, por ejemplo
PuedoCerrar.
En el evento MediaPlayer1Notify puedes poner lo siguiente:
Código Delphi
[-]
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with TMediaPlayer(Sender) do
begin
Form2.PuedoCerrar := (Mode = mpStopped);
Notify := True;
end;
end;
y en el evento OnCloseQuery del Form2:
Código Delphi
[-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := PuedoCerrar;
end;
Ahora mismo no puedo comprobar el código que he escrito, así que ya nos contarás.
Salu2.