mediaplayer- nueva ventana

[defcon1_es]

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
// Asegurate que Form2 está creada...
    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.

[Jorghino reyes]

Gracias! con algunos ligeros cambios para adaptarlo a mi programa, pero funciona bien.

Abusando de tu conocimeinto si esto lo quisiera modificar de forma como lo describo en el hilo que llava por titulo "Ventanas ocultar y mostrar" en esta misma seccion como le podria hacer.



Gracias!