网络收藏

procedure   tfrmhjgledit.formkeypress(sender:   tobject;   var   key:   char);  
  //需要用回车键代替tab键下移一个控件时，把keypress设为true  
  begin  
    if   (key=#13)   and   (not   (activecontrol   is   tdbgrid))   then  
        begin  
            key:=#0;  
            perform(wm_nextdlgctl,0,0);  
        end;  
  end;  
                  ???????/           keypress       在哪设为真

推荐阅读