Einzelnen Beitrag anzeigen

Benutzerbild von Dunkel
Dunkel

Registriert seit: 26. Mär 2007
Ort: Klingenstadt
541 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: Auf Tastendruck der Spezialtastatur reagieren!

  Alt 13. Jun 2007, 22:40
Hallo!

Öffne ein neues Projekt und erweitere die Ereignisbehandlung für OnKeyDown des Formulars etwa so:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Caption:= IntToStr(Key);
end;
Dann siehst Du in der Fensterleiste, welchen Wert die Tasten zurückgeben. Bei mir hat z.B. diese Play/Pause-Taste den Wert 179.

Dann kannst Du ganz einfach im OnKeyDown oder OnKeyUp auf diesen Wert überprüfen:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    179: { Play/Pause }
  end;
end;
Ich weiß nicht, ob sich alle Tastatur-Hersteller auf den selben Standard für die Multimediatasten geeinigt haben; es kann sein, dass eine andere Tastatur einen anderen Wert zurück gibt.
Es ist zu wahr um schön zu sein...
  Mit Zitat antworten Zitat