WM_KEYDOWN wird nicht ausgelößt

[EWeiss]

Zitat von madtom:

Hallo EWeiss,

ist es nonVCL? Ich habe es sonst in der VCL durchgespielt und es funktioniert: (ich habe es so angepasst, dass mir die Form1.Caption die gedrückten Tasten anzeigt)

Delphi-Quellcode:

procedure PlayStopKeyNote(KeyNote: Integer; State: TShiftState);
begin
  case KeyNote of
    VK_LEFT:
      Form1.Caption := 'Left'; // Left
    VK_RIGHT:
      Form1.Caption := 'Right'; // Right
    VK_UP:
      Form1.Caption := 'Up'; // Up
    VK_DOWN:
      Form1.Caption := 'Down'; // Down
    VK_RETURN:
      Form1.Caption := 'Return'; // Return
  else
    Exit;
  end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  PlayStopKeyNote(Key, Shift);
end;

Thomas

Lieber madtom
Danke für dein Beispiel
Aber ich sagte schon alle Tasten funktionieren nur diese 5 nicht.

Wenn ich den Focus erzwinge..

Delphi-Quellcode:

        // Focus für Tasten Eingaben
        ID_USEKEY:
        begin
          if UseKey then
            SKAERO_SetCheckButtonStatus(SKAERO_GetMainItem(MainHandle, ID_USEKEY), False);

          UseKey := not UseKey;
          SetFocus(MainHandle);
        end;

Dann funktionieren alle Tasten die ich angegeben habe um auf dem Piano zu spielen
Aber nicht VK_RIGHT, VK_LEFT, VK_UP, VK_DOWN, VK_RETURN

gruss