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;