WM_KEYDOWN wird nicht ausgelößt

[EWeiss]

Zitat von turboPASCAL:

Anders gefragt, wie schaut dein WM_KEYDOWN aus ?

So..
Auskommentierte ist was nicht an keys funktioniert.

Delphi-Quellcode:

    WM_KEYDOWN:
    begin
      case wp of
        VK_SHIFT:
          begin
            if not Sustain then
              SetController(64, 127, Channel);
          end;
        {VK_LEFT:
          SendMessage(WinHandle, WM_COMMAND, ID_BTN_INSTL, 0);
        VK_RIGHT:
          SendMessage(WinHandle, WM_COMMAND, ID_BTN_INSTR, 0);}
      end;

      if SKAERO_GetCheckButtonStatus(SKAERO_GetMainItem(MainHandle, ID_USEKEY)) =
        True then
        if wp <> lastnote then
          if OnState then
            // Note von der Tastatur spielen
            PlayStopKeyNote(wp, TChord(Chord), True);
      lastnote := wp;
    end;
    WM_KEYUP:
    begin
      case wp of
        VK_SHIFT:
          begin
            if not Sustain then
              SetController(64, 0, Channel);
          end;
      end;

      if SKAERO_GetCheckButtonStatus(SKAERO_GetMainItem(MainHandle, ID_USEKEY)) =
        True then
        if OnState then
        begin
          // zuletzt gespielte Note von der Tastatur stoppen
          PlayStopKeyNote(wp, TChord(Chord), False);
          lastnote := -1;
        end;
    end;

Komme gar nicht erst in WM_KEYDOWN rein mit den angegebenen Keys
Die anderen gehn.


gruss