如何屏闭光标键或其它键

Question

if key in [..] then abort

Answer 1

// 例如：屏蔽上下左右光标键；在KeyDown事件中；
if key in [37..40] then
  Key := 0;

Answer 2

以TEDIT为例子PROCEDURE EDIT1.PRESSKEY（SENDER TOBJECT  KEY CHAR）if key in [这里放你要屏蔽的键，如为多个用..记得加''] then key:=0;

Answer 3

详细点说：在form的onkeypress中写上
if key in[vk_left,vk_right,vk_up,vk_down] then abort;
当然，不要忘记了，form1.keypreview:=true;`