hi, und guten Morgen. Dank eurer Hilfe hab ich hinbekommen wie ich ohne die eigentliche Media Player leiste Musik starten kann. Ich möchte allerdings, dass der automatisch beim Start eine gewisse Musik, die zum Tag passt abspielt, und dann wenn es Nacht wird eine andere abspielt. Ich krieg es inzwischen zwar hin, dass er beim Start das Tageslied abspielt, aber wenn die Sonne aussem Bild verschwindet und der Mond auftaucht und es dunkel wird, wird die Melodie leider weitergespielt. Kann mir da jemand helfen? Gehört das überhaupt in eine eigene Prozedur?
Delphi-Quellcode:
procedure TTag_Nacht.FormActivate(Sender: TObject);
begin
if
Tag_Nacht.Color = clAqua
then
begin
Oberwelt.FileName := 'C:\WINDOWS\Profiles\Sebastian\Desktop\ff downloads\Mario Sounds\oberwelt.mid';
Oberwelt.Open;
Oberwelt.Play;
end
else
begin
Unterwelt.FileName := 'C:\WINDOWS\Profiles\Sebastian\Desktop\ff downloads\Mario Sounds\unterwelt.mid';
Unterwelt.Open;
Unterwelt.Play;
end;
end;
MfG
Ark4869