wie kann man Video automatisch schließen nach dem abspielen

[dannforth]

Hallo,
Ich habe eine procedure geschrieben, dass ein Video mit der mediaplayer komponente auf Vollbild geöffnet wird:

Delphi-Quellcode:

procedure TForm1.Video11Click(Sender: TObject);
begin
 Borderstyle := bsNone;
 Windowstate := wsMaximized;
 mediaplayer1.FileName:=opendialog1.FileName;
 mediaplayer1.Open;
 mediaplayer1.Play;
 mediaplayer1.DisplayRect:=form1.GetClientRect;
end;

Wie mache ich es jedoch, dass das Programm wieder aus dem Vollbildmodus zurückehrt, ohne, dass man erneut einen Befehl dur druck auf eine Taste geben muss.
zur Zeit habe ich es so gemacht, ich will aber das es automatisch geht:

Delphi-Quellcode:

procedure TForm1.schlieen1Click(Sender: TObject);
begin

 form1.ClientHeight := (360);
 Form1.ClientWidth  := (457);
 Borderstyle := bsSizeable;
 Windowstate := wsNormal;
 mediaplayer1.Close;
end;

schon mal danke im Vorraus,
mfg,
Dannforth

[edit=Daniel B]Delphi-Tags gesetzt; MfG Daniel B.[/edit]

[Luckie]

Löst der MediaPlayer ein Ereignis aus, wenndas Video zu ende ist?

[Daniel B]

Zitat:

Zitat von Luckie

Löst der MediaPlayer ein Ereignis aus, wenndas Video zu ende ist?

Ich habe keins finden können.

Grüsse, Daniel :hi:

[Daniel B]

Vielleicht bringt das noch was.

Zitat:

Occurs upon the completion of a media control method.

property OnNotify: TNotifyEvent;

Description

OnNotify occurs upon the completion of a media control method (Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, Resume, Rewind, StartRecording, Step, or Stop) when the Notify property is set to True before the call to the media control method. After an OnNotify event, the Notify property must be reset to True for the next OnNotify event to occur.

Sonst sieht es ziemlich schlecht aus.

Grüsse, Daniel :hi:

[dannforth]

Hi,
mal schaun, ob ich da mit dem TNotifyEvent hinkrieg.
Auf jeden Fall danke für eure Antworten,
mfg,
dannforth

[dannforth]

juhu,
ich habs geschaft,
Big thx @ Daniel für den tip mit notify.
mfg,
Dannforth

[Luckie]

Und wo bleibe ich? Ich hatte ja die Idee mit dem Event. :mrgreen:

[dannforth]

oh, sry,
Danke, lucky, Danke,

[Luckie]

Nicht so schlimm, war ja nur ein Scherz. Aber trotzdem schreibt sich mein Nick mit ie.