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 *