请问高手:如何用上下键切换一系列的输入框?

Question

设置 Form1 的 KeyPreview为 Trueprocedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=VK_Up) then PostMessage(handle,WM_NEXTDLGCTL,1,0);
  if (key=VK_Down) or (key=VK_RETURN) then PostMessage(handle,WM_NEXTDLGCTL,0,0);
end;

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 40 then
  edit2.SetFocus
end;procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 38 then
  edit1.SetFocus ;//上移
  if key = 40 then//下移
  edit3.SetFocusend;

Answer 2

Jera(天~~~~塌下来我也不怕...)　的答案完全正确，给他加分吧