TdxDBGrid控件,我想让用户按下Shift+方向键时执行某命令，但不滚动记录，只有在仅按方向键时才滚动记录．这该怎么写代码？(100)

如题．我写了下面代码，但当按下Shift+方向键时，也滚动了记录．procedure TfrmPowerMain.dxDBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (Key=VK_Up) And (ssShift in Shift) then PMUpClick(Nil) else if (Key=VK_Down) And (ssShift in Shift) then PMDownClick(Nil);end;