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: 3 Saat 51 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ı: 3 Saat 22 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?

kaanl0 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 16 Eylül 2025 Konum: konya Durum: Aktif Değil Puanlar: 190	Mesaj Seçenekleri Yanıt Yaz Alıntı kaanl0 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 54 Dakika Önce Saat 16:40
	İstediğin işlemi aşağıdaki koda bakarak yapabilirsin. Sesin çalması için öncelikle telefona kaydedilmesi gerekir addassetfromurl kısmına ses dosyasının linkini yapıştır. Github google drive gibi yerlere yükleyebilirsin. Linkin public olmasına dikkat et. Ayrıca FileName kısmındaki ve url'nin sonundaki ismin aynı olmasına dikkat et. 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); // Sesi internetten çekip projeye dahil ediyoruz Form.AddAssetFromUrl('Buraya Kendi ses dosyanın linkini yapıştır'); Music = TCLMediaPlayer.Create(Form); Music.FileName = clPathCombine('timer.mp3', Clomosy.AppFilesPath); Music.CurrentTime = 0; Music.Play; MusicTimer = Form.AddNewTimer(Form, 'MusicTimer', 1000); MusicTimer.Enabled = True; // DİKKAT: Zamanlayıcının çalışması için bu şart! Form.AddNewEvent(MusicTimer, tbeOnTimer, 'MusicControl'); Form.Run; } https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">