@turboPASCAL:
Dein Programm hat einen ganz kleinen Fehler
Anstatt
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
...
// Wert als % in Label1.Caption anzeigen
Label1.Caption :=
format('%0.1f %%', [(Trackbar1.Position / MaxMixerMasterVolume) * 100]);
...
muss dort
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
...
// Wert als % in Label1.Caption anzeigen
Label1.Caption :=
format('%0.1f %%', [((MaxMixerMasterVolume - Trackbar1.Position) / MaxMixerMasterVolume) * 100]);
...
stehen. Wenn man dein Programm start steht dort z.B. 5%, wobei die Lautstärke auf 95% steht. Wenn man die Tackbar anklickt ist es jedoch sofort behoben.
Vielen Dank für deinen Lautstärken-Code/ Programm, hat mich weitergebracht.
Ben