TrackBar Position Problem

[uwewo]

Die TrackBar kann man doch auch disablen.

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject); 
begin 
   TrackBar1.Enabled := CheckBox1.Checked; 
   
    if CheckBox1.Checked then
     begin
       Label13.Caption   := IntToStr(TrackBar1.Position);
       DeinPlayer.Volume := TrackBar1.Position;
     end
    else
      begin
        Label13.Caption   := '0'
        DeinPlayer.Volume := 0;
      end; 
end;

Anstatt zu disablen könntest Du natürlich auch den Slider ausblenden.