多个EDIT控件，怎样做使在一个EDIT回车后，焦点自动跳到下一个EDIT（TAB顺序相接）

xxxKeyPress事件if key=#13 then
 begin
   selectNext(sender as twincontrol,true,true);
   key:=#0;
 end;
然后其它edit的KeyPress调用该事件即可

解决方案 »

  1.   

    我看过一个源程序，他的每个EDIT都没有事件，可是照样实现上述功能，
    我至今也不明白是怎么实现的。
      

  2.   

    按要跳动的顺序添加edit控件，按tab键会自动把焦点跳到下一个。
      

  3.   

    不会吧？！
    至少在第一个中edit写代码吧
      

  4.   


    procedure TStockFrm1.Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
         if Key=$0D then
           if Edit3.CanFocus then
              Edit3.SetFocus;
    end;
      

  5.   

    每个EDIT都要写代码或连接代码？饶了我吧！大家好好想想简单的办法。
      

  6.   

    Form的KeyPreview设为true
    在Form的FormKeyDown事件中
    使用SendMessage函数模拟键盘按下Tab键。
      

  7.   

    Form的KeyPreview设为true
    在Form的FormKeypress事件中
     perform(nextdlgctl,0,0)