自定义的控件（继承自TCustomControl），如何相应Arrow Keys

Question

rt

Answer 1

相应Arrow Keys??你到底想干什么

Answer 2

声明
procedure  KeyDown(var:TWMKEYDOWN):message WM_KEYDOWN;实现 
procedure TForm1.KeyDown(var Msg: TWMKEYDOWN);
begin
   case Msg.CharCode of
      VK_LEFT:
         ShowMessage('Left');
      VK_UP:
         ShowMessage('Up');
      VK_RIGHT:
         ShowMessage('Right');
      VK_DOWN:
         ShowMessage('Down');
  end;
end;

Answer 3

Arrow Keys其实是TCustomUpDown的一个私有的属性,可以采用下面的方法进行设置！
而TCustomUpDown继承自TWinControl,TCustomControl也继承自TWinControl,你可以给他增加一个属性就可以了：
procedure TCustomUpDown.SetArrowKeys(Value: Boolean);
begin
  if Value <> FArrowKeys then
  begin
    FArrowKeys := Value;
    if HandleAllocated then
      SendMessage(Handle, UDM_SETBUDDY, 0, 0);
    RecreateWnd;
  end;
end;

Answer 4

arrowkeys特性只用于上下构件有一个伙伴窗口时才使用的到的！
他只是提供一个键盘的接口，使的在伙伴窗口获得焦点的时候，上下构件也可以接收上下光标键！这种应用并不是很多！

Answer 5

对不起，我把“响应”写成了“相应”
Array keyshi
问题已经解决

Answer 6

对不起，我把“响应”写成了“相应”
Array key是说键盘上的光标箭
问题已经解决