Strg + Pfeiltaste runter

[Nils_13]

Es ist genug drinnen....

Der Fehler ist echt übel, liegt scheinbar nicht an meinem Code: Liegt VK_DOWN oben (im Code so gezeigt), wird VK_DOWN ausgeführt, VK_UP funktioniert dafür nicht. Liegt VK_UP weiter oben, wird VK_UP ausgeführt, VK_DOWN dafür nicht. Ich versteh den Fehler nicht:

Delphi-Quellcode:

procedure TfrmSettings.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (Key = Ord('N')) then
    mValNeu.Click
  else
  if (ssCtrl in Shift) and (Key = VK_DELETE) then
    mValDel.Click
  else
  if (ssCtrl in Shift) and (ssAlt in Shift) and (Key = Ord('N')) then
    mKatNeu.Click
  else
  if (ssCtrl in Shift) and (Key = VK_DOWN) then
    if ActiveControl = lbKat then
      mKatMoveRunter.Click
  else
  if (ssCtrl in Shift) and (Key = VK_UP) then
    if ActiveControl = lbKat then
      mKatMoveHoch.Click
  else
  if Key = VK_ESCAPE then
    Close;
end;