mediaplayer- nueva ventana

defcon1_es · #3 31-10-2005

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.