procedure TStartUp.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If CbDeviceType.Focused then begin
RemoveFocus(True);
Exit;
end;
//Focus von anderen Componenten nehmen
case Key of
VK_UP: if (ssShift in Shift) then MoveWholeUnit(dirBackward) else MoveWholeUnit(dirUp);
VK_DOWN: if (ssShift in Shift) then MoveWholeUnit(dirForward) else MoveWholeUnit(dirDown);
VK_LEFT: MoveWholeUnit(dirLeft);
VK_RIGHT: MoveWholeUnit(dirRight);
end;
//Dies soll davon abhalten dass nebenbei ComboBoxen ihren Wert ändern
case Key of
VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT: Key:= 0;
end;
end;