Dbgrid表格如何使光标位于某单元格时按某键则输入-1

Question

    通过 查询 按钮，查出数据显示在Dbgrid1中，代码如下：
    qdoquery1.Active:=False;
    qdoquery1.SQL.Text:='Select * From student where 班级>= '+''''+trim(edit1.Text)+''''+' and 年龄='+UserNL+'order by 分数;
    qdoquery1.Active:=True;
    qdoquery1.First;    以上代码在Dbgrid中显示行列二维数据，我想询问和求教的是：当使用向下键使光标跳到此二维表的某行列时，我再铵键盘上的某键（如del键），能自动输入‘-1’这两个值到光标所在的单元格中。    当然，我按两次键、直接输入-和1，也能做到录入-1。但这不是我想要的结果和我想探求的技巧。我问的是：我只按一键，只按一次键，输入两个字符。比如只按DEL键就能输入‘-1’、或按F1键输入‘-1’等都行。    要如何做到？

Answer 1

KeyPreess或者KeyDown事件中判断Key值，然后代码赋值即可。