在edit之间移动光标如何使用上下左右键

Question

在窗体中的edit间切换？在form 的onkeydown中添加处理代码：
  VK_LEFT： 处理。
  VK_UP;
  VK_RIGHT:;
  VK_DOWN:;
通常windows在控件中移动时，使用tab,shift + tab.
delphi支持的很好呀，设置TabOrder, TabStop属性就行。

Answer 1

procedure TForm1.DealKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN, VK_DOWN : SelectNext(TWincontrol(Sender),True,True);
    VK_UP   : SelectNext(TWincontrol(Sender), False, True);
  end;
end;调用方式:
例如form1上有三个edit组件，你在edit1的onkeyup method中调用
  DealKeyDown(Sender, Key, Shift);
然后将其他edit的onkeyup method全部指定为Edit1KeyUp看看效果啦，应该会让你满意的！！