Ses sorunu

[ermanispir@gmail.com]

Merhaba, 
Windows sesleriyle alakalı problemim var,   bir editten diğerine setfocus yaptığımda windows seslerini çalıyor, bunu windowsu sessiz moda alırsam ancak susuyor, bunu windows ses hizmetini sessiz moda almadan delphi içinden çözebilir miyim?

Saygılar.

[frmman]

Çözüm noktasını windowsun sesini kapatmakda değil, uyarı sesini oluşturan problemi tespit etmekde aramalısınız. Tasarımızında atladığınız gözünüzden kaçan küçük bir detay var muhtemelen. Yaptığınız işlemler ile ilgili biraz daha detay veya kod parçasını paylaşırsanız sonuca daha çabuk ulaşırsınız.

[yhackup]

(02-11-2018, Saat: 12:17)frmman Adlı Kullanıcıdan Alıntı: Çözüm noktasını windowsun sesini kapatmakda değil,

+ 1 ,

Biraz kaba tabir olacak ama bizim oralarda "b*ku karla örtmek" diye bir deyim var aklıma geldi bir an...

[ihalilcoban]

Merhaba.
İlgili editlerin OnEnter ve OnExit olaylarında kod kullandıysanız onlardan olabilir. Editler arası geçişleri klavyeden tab veya enter tuşuyla mı yaptırıyorsunuz? Fare ile geçişlerde de ses çıkıyor mu? Bir de formunuzun OnKeyPress olayını kontrol etmenizde fayda var. Belirttiğiniz ses genelde setfocus olayı durduğunda imleç başka bir noktaya atlayamadığı zaman windows tarafından verilen uyarı sesidir.

[mrmarman]

OnKeyPress vb olayında Enter tuşu gelirse bir sonraki kontrole otomatik sıçra şeklinde bir yapılandırma kurmuşsanız çözümü oradaki son basılan ENTER butonu için if sorgunuzda sonraki kontrole geçmeden önce KEY değerini $0 olarak sıfırlayın

#13 bir edit içerisinde yer aldığında sistem sesli bir otomatik uyarı verir.

[ihalilcoban]

(02-11-2018, Saat: 14:03)mrmarman Adlı Kullanıcıdan Alıntı: OnKeyPress vb olayında Enter tuşu gelirse bir sonraki kontrole otomatik sıçra şeklinde bir yapılandırma kurmuşsanız çözümü oradaki son basılan ENTER butonu için if sorgunuzda sonraki kontrole geçmeden önce KEY değerini $0 olarak sıfırlayın

#13 bir edit içerisinde yer aldığında sistem sesli bir otomatik uyarı verir.

Aynen katılıyorum üstadım. Örnek vermek gerekirse;

procedure TKitap_Karti.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
    begin
       Key := #0;
       Perform(WM_NEXTDLGCTL, 0, 0);
   end;
end;