Sesin sürekli çalması

   var
Form : tclform
Music : tclmediaplayer
MusicTimer : TCLTimer
void MusicControl;
{
  if((Music.state == 0) || (Music.state == 2))
  {
    Music.CurrentTime = 0;
    Music.play;
  }
}
{

  form = tclform.create(Self);
  form.Run;

  Music = tclmediaplayer.create(Form);
  Music.FileName = clPathCombine('music',Clomosy.AppFilesPath);
  Music.CurrentTime = 0;
  Music.Play;

  MusicTimer= Form.AddNewTimer(Form,'musicitimer',1000); 
  Form.AddNewEvent(MusicTimer,tbeOnTimer,'MusicControl');

} 

kodum da sesin sürekli çalmasını istiyorum ama nasıl yapabilirim yardımcı olur musunuz?

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
BabaPiro4247 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 2 Saat 15 Dakika Önce Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı BabaPiro4247 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Sesin sürekli çalması Gönderim Zamanı: 1 saat 46 Dakika Önce Saat 14:12
	var Form : tclform Music : tclmediaplayer MusicTimer : TCLTimer void MusicControl; { if((Music.state == 0) \|\| (Music.state == 2)) { Music.CurrentTime = 0; Music.play; } } { form = tclform.create(Self); form.Run; Music = tclmediaplayer.create(Form); Music.FileName = clPathCombine('music',Clomosy.AppFilesPath); Music.CurrentTime = 0; Music.Play; MusicTimer= Form.AddNewTimer(Form,'musicitimer',1000); Form.AddNewEvent(MusicTimer,tbeOnTimer,'MusicControl'); } kodum da sesin sürekli çalmasını istiyorum ama nasıl yapabilirim yardımcı olur musunuz?