Trackbar mit Tastatur steuern

[Fritz the Cat]

Hi,

Ich habe auf meinen Form eine Trackbar zu liegen, mit der ich die Lautstärke regeln kann. Da es sich aber im einen Videoplayer handelt, mit dem ich in den Vollbild-Modus wechseln kann, ist für mich dieser Regler nicht mehr sichtbar. Wie kann ich jetzt die Lautstärke mit der "+"-Taste erhöhen und mit der "-"-Taste verringern?

schonmal Danke!!!

[Ultimator]

Du könntest KeyPreview deiner Form auf true stellen, und im OnKeyPress dann abfragen, ob "+" bzw. "-" gedrückt wurde und so dann TrackBar.Position einstellen.

//edit: Mich kann man ja ignorieren, sobald ich mal keinen fertigen Code poste :roll:
(Nix gegen dich, Sharky ;))

[Luckie]

Registrier doch in einem Menü Shortcuts für diese Tasten.

[Fritz the Cat]

Man, ihr seit ja fix!!!! Trotzdem weiß ich nicht, wie ich das jetzt nun anstellen soll. Könnte mir soetwas in der Richtung:

Delphi-Quellcode:

TrackBar1Change(nil);

vorstellen. Funktioniert aber leider nicht. Bin noch ziehmlicher Anfänger. Vielleicht ein kleines Beispiel?

[Fritz the Cat]

Hallo Luckie,

ich habe lediglich ein Popupmenü auf mein Form zu liegen, daß mir die grundlegende Steuerung im Vollbild-Modus ermöglichen soll. Also Play, Stop, Pause etc..

[Luckie]

Dann pack da doch noch die Laurstärke zu.

[Fritz the Cat]

Und wie soll das funktionieren? Entschuldige bitte, aber eine Trackbar läßt sich im Popup nicht einbinden.

Oder bin ich jetzt auf dem Holzweg und du meintest einen weiteren Menüeintrag? Wenn ja, wie mache ich diesen begreiflich auf das OnChange-Ereignis meiner Trackbar zuzugreifen?

[PierreB]

Mach doch einfach in dein PopUp zwei neue Einträge. Bei dem einen lässt du es lauter und beim anderen leiser werden.

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

[PierreB]

OK wenn ich mich nicht völlig irre müsste es irgendwie so gehen:

Mal angenommen deine TrackBar hat maximal 100 "Positionen". Dann würde ich es so machenh das bei 50 normale Lautstärke ist. Wenn du es dann lauter machen willst:

Delphi-Quellcode:

trackbar1.position := trackbar1.position + 10;

Für leiser dann halt - 10. Und im OnChange bei der TrackBar haust du dann deine Prozedur zur Lautstärke rein. (Wen du schon eine hast ?). Bin mir aber nicht ganz sicher obs so geht. ;)