在EDIT中按下上下光标键，怎样怎样触发一个过程或函数？

Question

在EDIT中按下上下光标键，怎样怎样触发一个过程或函数？

Answer 1

上下光标键，你说的是方向键吗？如果是方向键，很容易啊，自动触发OnKeyDown,OnKeyUp和OnKeyPress
所以这里把你的例程放到这三个事件中就OK了

Answer 2

同意楼上的，键值：
VK_LEFT = 37;
VK_UP = 38;
VK_RIGHT = 39;
VK_DOWN = 40;

Answer 3

不能解决，不触发啊
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#40) or (key=#38) then
     showmessage('hello!');
end;
没反应啊？？？？？？？？？？？

Answer 4

多谢解决了，在TForm1.Edit1KeyUp 中可以，多谢！！！1111111