Trackbar mit Tastatur steuern

[Sharky]

Zitat von Fritz the Cat:

Ja PierreB, daß habe ich bereits getan. Nur das Problem ist das selbe. Wie spreche ich nun die TrackBar an. Oh Gott, ich nerve!! Sorry!!!

Hai,

hier mal ein Beispiel. Es gibt eine TrackBar und zwei Menüeinträge:

Delphi-Quellcode:

procedure TForm1.Lauter1Click(Sender: TObject);  // Menüpunkt 1
begin
  if (TrackBar1.Position < TrackBar1.Max) then
  begin
    TrackBar1.Position := TrackBar1.Position + 1;
  end;
end;

procedure TForm1.Leiser1Click(Sender: TObject);  // Menüpunkt 2
begin
  if (TrackBar1.Position > 0) then
  begin
    TrackBar1.Position := TrackBar1.Position - 1;
  end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 // Setze die Lautstärke auf TrackBar1.Position;
end;