Trackbar mit Tastatur steuern

[Sharky]

Noch ein Nachtrag.

Wenn Du auf ein Menü verzichten möchtest kannst Du das auch im .OnKeyPress deiner Form machen wenn Du .KeyPreview
auf True setzt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if (Key = '+') then
  begin
    TrackBar1.Position := TrackBar1.Position + 1;
  end;
  if (Key = '-') then
  begin
     TrackBar1.Position := TrackBar1.Position - 1;
  end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 // Label als Demonstation der "Lautstärke".
 // Hier muss natürlich die richtige Funktion rein.
  Label1.Caption := IntToStr(TrackBar1.Position);
end;