DelphiX-Tutorial für Anfänger

^{Ursprünglich erstellt von MiGa Mail Homepage (Danke!!)}
Design-Anpassung und Veränderung von Simon

Kapitel 7

Sounds abspielen

Wir nehmen unser letztes Beispiel zur Hand und wollen, dass ein Sound ausgegeben wird, wenn die Kollision statt findet.

Als erstes müssen wir eine DXSound und eine DXWaveList Komponente einfügen. In der DXWaveList Komponente geben wir als DXSound Eigenschaft "DXSound1" (Name der DXSound Komponente) an.
In die DXWaveList laden wir dann eine Wave Datei und geben ihr einen Namen (hier: "Sound"). Die DXWaveList ist vom Aussehen her so gestaltet wie die DXImageList, so dass ihnen das hinzufügen von Sachen bekannt sein sollte.
In die TAnimation.Collision Prozedur schreiben wir jetzt folgendes:

procedure TAnimation.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
  if sprite is TGegenstand then
    begin
      Form1.DXWaveList1.Items.Find('sound').Play(False);
      dead
    end;
end;

Dadurch wird die Wave Datei namens "Sound" abgespielt. Das False in der Klammer bedeute, dass die Datei nicht "gelooped" wird.

Jetzt können sie schon wieder F9 drücken und hören einen Sound, wenn die Kollision stattfindet.

<<Vorheriges Kapitel>>   <<Nächstes Kapitel>>