Hola b2k,
Al parecer, estás empleando un componente que hice hace tiempo. Uno que maneja el volumen.
Eduarcol te dio la respuesta, en el envento OnChange debes capturar el valor de position y en basa a este "calcular" el volumen.
Yo te doy un consejo, el cual se me olvidó hacer notar en su momento, se cambia el volumen del
sistema y no simplemente dentro del aplicativo. Asi que recuerda y ten presente este hecho cuando emplees el componente.
Limpiando el disco, encontré una prueba que hice. La idea es hacer algo como esto:
Código Delphi
[-]
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
with Volumen1 do
begin
SetVolumen(TrackBar1.Position);
Label1.Caption := 'Volumen: '+Volume;
Label2.Caption := 'PorcVolumen: '+IntToStr(PorcVolume)+'%';
Label3.Caption := 'Múltiplo: '+IntToStr(Multiplo);
if Silencio
then Label4.Caption := 'Silencio: True'
else Label4.Caption := 'Silencio: False';
end;
end;
Saludos,
PD: Me alegro que alguien vea que le pueda serle util.
