объем управления в Android приложений Delphi XE 7

Question

Я использую FormKeyup процедуру для включения/выключения громкости звука, как это:

if key = vkVolumeDown then begin 
quadrum:= 0.2; 
if MediaPlayer1.Volume - quadrum > 0 then 
    MediaPlayer1.Volume:= MediaPlayer1.Volume-quadrum; 
if MediaPlayer1.Volume - quadrum < 0 then 
    MediaPlayer1.Volume:= MediaPlayer1.Volume.Minvalue; 
snd:= false; 
end; 

Но это работает только для включения/выключения звука (плюс-минус 0,2 не работает), и я просто хочу установить

Answer 1

Проблема с вашим кодом в том, что вместо двух вложенных, если вы должны использовать if if else statment. Зачем? Вторым вложенным, если статуты перепроверят MediaPlayer1.Volume - quadrum после того, как вы уже уменьшили громкость на величину quadrum. Поэтому, если MediaPlayer1.Volume был 0,4 или меньше, он мгновенно отключил звук. Особенно, если установка snd на false останавливает воспроизведение звука. Becouse эта команда будет всегда выполняться независимо от того, что.

Так вместо того, чтобы ваш код должен быть таким:

if key = vkVolumeDown then begin 
quadrum:= 0.2; 
    if MediaPlayer1.Volume - quadrum > 0 then 
    MediaPlayer1.Volume:= MediaPlayer1.Volume-quadrum 
    else 
    begin 
    MediaPlayer1.Volume:= MediaPlayer1.Volume.Minvalue; 
    snd:= false; 
    end; 
end;