Lied im MediaPlayer erst nach ein paar Sekunden abspielen

[Cruesador]

Ok, ich schicke dir dann demnächst mal ein Bild vom Objektinspektor nachdem ich auf den hintergrund von "Form1" gedrückt habe ... da gibt es wirklich nichts ...

[Die Muhkuh]

Dann drückst Du im ObjectInspector mal noch auf "Ereignisse" und siehe da: OnShow ;)

[Cruesador]

ok ich gucke mal

[Progman]

Wenn man Form1 sieht, brauch man nur mal F12 drücken und schon ist man im Quellcode.... :roll: :P

[Die Muhkuh]

Zitat:

Zitat von Progman

Wenn man Form1 sieht, brauch man nur mal F12 drücken und schon ist man im Quellcode.... :roll: :P

:wall: Er hat es davon, dass er das Ereignis "OnShow" nicht hat, wo der CodeEditor ist, weiß er ja...

[Progman]

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  TimeToRun:=5;
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //solange TimeToRun größer Null nur anzeigen und weiterzählen
  Label1.Caption:='Zeit bis zum Start: '+IntToStr(TimeToRun)+' sek.';
  if TimeToRun = 0 then begin
    Timer1.Enabled:=False; //Timer anhalten
    //Sound starten
    MediaPlayer1.FileName:='test.wav'; //muss im selben Verz. sein
    MediaPlayer1.Open;
    MediaPlayer1.Play;
  end;
  dec(TimeToRun); //um 1 erniedrigen
end;

Das kriegt er zu sehen, wenn er F12 drückt, da ist ganz deutlich FormShow :lol:

[Die Muhkuh]

:wall:

Zitat:

Zitat von Cruesador

Ok, ich schicke dir dann demnächst mal ein Bild vom Objektinspektor nachdem ich auf den hintergrund von "Form1" gedrückt habe ... da gibt es wirklich nichts ...

Lesen ;-)

[DeddyH]

Der OI hat 2 Registerreiter (zumindest unter Delphi 7) ;)

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Der OI hat 2 Registerreiter (zumindest unter Delphi 7) ;)

Und das versuche ich am Cruesador zu sagen, aber Progman ist der Meinung, dass er es im Code nicht findet, das mag vllt. auch sein, aber Cruesador spricht eindeutig vom OI ;)

Zitat:

Zitat von Die Muhkuh

Dann drückst Du im ObjectInspector mal noch auf "Ereignisse" und siehe da: OnShow ;)

[DeddyH]

Ein Doppelklick im OI an die richtige Stelle, dann sieht man' s auch im Quelltext :mrgreen: