Panel per Timer aktivieren

[Real_Thunder]

Also ich weiß nicht ob ich das richtig verstanden habe.....

Wenn Panel 1 An ist, dann:
panel2 ausmachen, Video abspielen, 21 sek warten,
video stoppen, panel2 anmachen, panel1 ausmachen, 10 sekunden warten,
So habe ich es nun verstanden....

najaa hier mal mein entwurf dazu:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if panel1.Enabled then begin
  mediaplayer1.Play;
  timer1.Interval:=21000;
  panel1.Enabled:=false;
  panel2.Enabled:=true;
end else begin
  mediaplayer1.stop;
  timer1.Interval:=10000;
  panel1.Enabled:=true;
  panel2.Enabled:=false;
end;

* Ungetested *