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]