Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Verzögerung


henny - Fr 05.06.09 20:18
Titel: Verzögerung
Ich möchte ein Programm Programmieren bei dem Musik abgespielt wird.
Das mit der Musik funktioniert. Aber ich möchte das die Musik nicht direkt nach dem Programmstart abgespielt wird sondern das sie erst 5 sekunden nach dem Programmstart abgespielt wird!
Wie mache ich das?


Tropby - Fr 05.06.09 20:26

Da gibt es mehrere möglichkeiten.

Die einfachste ist wohl einen Timer auf die Form zu ziehen und den dann auf 5 Sekunden zu setzten.


Delphi-Quelltext
1:
2:
3:
4:
5:
procedure TForm1.Timer1OnTimer(Sender: TObject);
begin
  Timer1.enabled := false;
  // Musik abspielen
end;


ffgorcky - Fr 05.06.09 20:28

Am einfachsten nutzt Du einfach nur einen Timer, dessen Intervall Du - je nach Wunsch -
- entweder auf 1000 stellt, und eine Variable von 5 runterzählen lässt,
- oder den Intervall direkt auf 5000 stellst.


henny - Fr 05.06.09 20:35

kannst du das genauer erklären?


Tropby - Fr 05.06.09 20:44

Wie gesagt es gibt ein Objekt das heißt "Timer". Dieses kannst unter "System" in der Tool-Palette.

Dann die Eigenschaft "Interval" auf 5000 Millisekunden setzten und das Ereignis "OnTimer" (doppelklick auf den Timer) erstellen. Das wird dann nach 5 Sekunden aufgerufen.