Ses Düğmelerini Kullanma

[Hashirama]

Merhaba Arkadaşlar

Telefonunuzun ses arttırım azaltım düğmelerini şu şekilde kendi programınız için kullanabilirsiniz.

Kod: Tümünü seç

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
 // telefon sesinde yükselme olmuyor sadece dıt diye ses çıkıyor
 if key=vkVolumeUp then
 begin
 key:=0;
 ShowMessage('yükseltme');
 end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
// telefon sesinde alçalma oluyor ve ses çıkmıyor.
 if key=vkVolumeDown then
   begin
       key:=0;
        ShowMessage('düşürme');
   
   end;

end;

Fakat burada küçük bir sorun var

Kod: Tümünü seç

FormKeyDown

ile

Kod: Tümünü seç

FormKeyUp

kısmına yazdığımız kod aynı olmasına rağmen işleyişi biraz farklı.

Kod: Tümünü seç

FormKeyDown

Telefon sesinde yükselme olmuyor sadece dıt diye tuş ses çıkıyor "biraz rahatsız edici".

Kod: Tümünü seç

FormKeyUp

Telefon sesinde alçalma oluyor ve ses çıkmıyor.

İstenen ise birbirinin eksiğini tamamlaması yani Telefon sesinde herhangi bir değişikliğin olmaması ve tuş sesinin çıkmaması. Bu konu da fikri olan var mı ?