Habe ein paar probleme mit meinen Keytasten
VK_RIGHT, VK_LEFT, VK_RETURN
werden einfach nicht aufgelößt.
Habe jetzt schon VK_SHIFT für VK_RETURN eingesetzt.
Und muss jetzt feststellen das die beiden VK_RIGHT, VK_LEFT auch nicht funktionieren.
Diese hier funktionieren alle..
Delphi-Quellcode:
procedure PlayStopKeyNote(KeyNote: Integer; Chord: TChord; State: BOOL);
var
NewNote: Integer;
begin
case KeyNote of
ord('Y'): NewNote := 12; // Basenote C1
ord('S'): NewNote := 13; // C1#
ord('X'): NewNote := 14; // D1
ord('D'): NewNote := 15; // D1#
ord('C'): NewNote := 16; // E1
ord('V'): NewNote := 17; // F1
ord('G'): NewNote := 18; // F1#
ord('B'): NewNote := 19; // G1
ord('H'): NewNote := 20; // G1#
ord('N'): NewNote := 21; // A1
ord('J'): NewNote := 22; // A1#
ord('M'): NewNote := 23; // H1
VK_OEM_COMMA: NewNote := 24; // C2
ord('L'): NewNote := 25; // C2#
VK_OEM_PERIOD: NewNote := 26; // D2
VK_OEM_3: NewNote := 27; // D2#
VK_OEM_MINUS: NewNote := 28; // E2
ord('Q'): NewNote := 29; // F2
ord('2'): NewNote := 30; // F2#
ord('W'): NewNote := 31; // G2
ord('3'): NewNote := 32; // G2#
ord('E'): NewNote := 33; // A2
ord('4'): NewNote := 34; // A2#
ord('R'): NewNote := 35; // H2
ord('T'): NewNote := 36; // C3
ord('6'): NewNote := 37; // C3#
ord('Z'): NewNote := 38; // D3
ord('7'): NewNote := 39; // D3#
ord('U'): NewNote := 40; // E3
ord('I'): NewNote := 41; // F3
ord('9'): NewNote := 42; // F3#
ord('O'): NewNote := 43; // G3
ord('0'): NewNote := 44; // G3#
ord('P'): NewNote := 45; // A3
VK_OEM_4: NewNote := 46; // A3#
VK_OEM_1: NewNote := 47; // H3
VK_OEM_PLUS: NewNote := 48; // C4
else
exit;
end;
if State then
StartNote(NewNote, integer(Chord))
else
StopNote(NewNote, integer(Chord));
end;
Was läuft denn hier wieder schief.