Trackbar mit Tastatur steuern

[Ultimator]

Form1.TrackBar1.Position := Form1.TrackBar1.Position + 10 Für 10 musst du halt den gewünschten Wert einsetzen

//edit: Der rote Kasten wird mir immer suspekter

[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;

[Fritz the Cat]

Nicht alle auf einmal !!! Danke an alle!!!! Werd's probieren.

[PierreB]

Zitat von Ultimator:

Form1.TrackBar1.Position := Form1.TrackBar1.Position + 10 Für 10 musst du halt den gewünschten Wert einsetzen

//edit: Der rote Kasten wird mir immer suspekter

Das erhöht zwar den Wert und die Position, aber nicht noch die Lautstärke. Das muss man noch im OnChange klarmachen.

[Fritz the Cat]

Und was kommt da rein? Das was Du oben schon gepostet hast? Und vor allem im welchen OnChange-Ereignis?

[PierreB]

In TrackBar1.OnChange (findest du im Objektinspektor unter Ereignisse)
Da kommt die Funktion rein die Leiser und Lauter macht. Weiß ja net, hast du da schon was oder noch nix ?

[Fritz the Cat]

OK, funktioniert jetzt alles ganz toll.

PS: ist ja ein spitzenmäßiges Forum!!!!! So etwas von schnell habe ich noch nicht erlebt!!!! Ihr seit ja wirklich die freiwillige Feuerwehr!!!!

Danke nochmals

[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;

[Fritz the Cat]

Danke Sharky. Das ist natürlich noch besser. Habe zwar zwei Menüeinträge für Lauter und Leiser drin diese auf Visible False gesetzt und jeweils einen Shortcut zugewiesen. Das ist aber noch praktischer!!!!

Weiterhin schöne Pfingsten