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

设置 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;

解决方案 »

  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;
      

  2.   

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