Problem mit MediaPlayer

[ferby]

Hallo,


Ich habe auf meiner Form einen Mediaplayer bei den alle buttons sichtbar und enable=true ist.

Jetzt starte ich in der oncreat procedure ein lied:

Delphi-Quellcode:

  randomize;
  mediaplayer.FileName:='data_tmp/' + inttostr(random(18) + 1) + '.mid';
  mediaplayer.Open;
  mediaplayer.Play;

Das funktioniert auch super, nur sobald die form sichtbar wird ist beim mediaplayer der play button nicht gedrückt und der stop button kann nicht gedrückt werden. erst wenn man auf den play button vom media player gedrückt hat stimmen die buttons wieder. kan mir wer volgen??

Wenn ich das Programm starte dann ist der Media Player so als würde kein Lied spielen, ich möchte das wenn das Programm startet das der Play Button beim Media player gedrückt ist.


Ich hoff jemand versteht mein Problem,



Und dann habe ich noch eine Frage:
Wie weiß ich welche Taste vom MediaPlayer gedrückt wurde (Play, Stop oder ein Lied weiter)?

Ferby

[Phistev]

Nutz mal OnShow statt OnCreate, evtl. darf das Lied erst beim Zeigen des Formulars gespielt werden