如何实现Edit筐的焦点切换(利用事件Enter)

Question

利用Tab可以切换焦点,如果改为Enter怎么实现?

Answer 1

if Key = #13 then
  SendMessage(Handle,WM_KeyDown,VK_TAB,0) ;

Answer 2

if Key=#13 then
    if not(AForm.ActiveControl is TDbGrid) then
    begin //不是在TDbgrid控件内
      //key := #0;
      AForm.PerForm(WM_NEXTDLGCTL,0,0); //移到下一个控件
    end
    else if (AForm.ActiveControl is TDBGrid) then
    begin  //是在TDbgrid控件内
      with TDbgrid(AForm.ActiveControl) do
        if Selectedindex<(Fieldcount-1) then
          Selectedindex := Selectedindex+1
        else
          Selectedindex := 0;
    end;

Answer 3

if Key=#13 then
   Edit.SetFocus;