用edit来实现数据输入，当enter键按下时，怎么样才能实现数据输入焦点的转移？？？

Question

procedure TFormSale.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
    Key:=#0;
  end;
end;

Answer 1

procedure TFormSale.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
     Key = #0;
     SelectNext(ActiveControl,True,True);
  end;
end;  设置FormSale的keyPreview属性为True,把edit1,edit2...的TabOrder依次设为0，1 

Answer 2

在edit的keypress中：
if key=#13 then
  edit2.setfocus;

Answer 3

到该网站的程序员大本营中的delphi资源大全里有比较详细!