『delphi』Enter键移动焦点的效果

procedure Tlogin.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then
    FindNextControl(ActiveControl,true,false,false).SetFocus;
end;

end.
其他的的KeyDown选中Edit1的就可以了