快捷键问题

Question

请教各位：我的form上有3个edit,现在想实现通过上和下方向键完成eidt之间的焦点切换，怎么实现。再次感谢。

Answer 1

procedure TFrm.EdtKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (Key=VK_Return) or (Key=VK_Down) then
    begin
        Perform(WM_NEXTDLGCTL,0,0);
    end;
    if Key=VK_Up then
    begin
        Perform(WM_NEXTDLGCTL,1,0);
    end;
end;