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的就可以了