Delphi-Quellcode:
procedure TForm1.CheckBox1Click(Sender: TObject);
var
OldVolume: Integer;
begin
if CheckBox1.Checked = True then
begin
OldVolume := TrackBar1.Position;
// Das hier mit dem Label mache ich nur, damit ich den vorherigen Wert auch SEHEN kann
Label13.Caption := IntToStr(OldVolume);
TrackBar1.Position := 0;
TrackBar1.Enabled := False;
Label11.Enabled := False;
end;
if CheckBox1.Checked = False then
begin
// Priblem hier
TrackBar1.Position := OldVolume;
// TrackBar1.Position := 15;
TrackBar1.Enabled := True;
Label11.Enabled := True;
end;
end;
Nach dem Wieder-einschalten, wird die TrackBar unmittelbar auf Position 255 (100%) gesetzt.