云版，新建项目，Key与标段名称均不为空时，可回车确认。

Forms/WebNewTenderFrm.dfm

@@ -65,6 +65,7 @@ object WebNewTenderForm: TWebNewTenderForm
     Width = 285
     Height = 20
     TabOrder = 2
+    OnKeyDown = edtKeyKeyDown
   end
   object edtTenderName: TEdit
     Left = 16
@@ -72,5 +73,6 @@ object WebNewTenderForm: TWebNewTenderForm
     Width = 285
     Height = 20
     TabOrder = 3
+    OnKeyDown = edtKeyKeyDown
   end
 end

Forms/WebNewTenderFrm.pas

@@ -15,6 +15,8 @@ type
     lbl2: TLabel;
     edtTenderName: TEdit;
     procedure FormCreate(Sender: TObject);
+    procedure edtKeyKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
   private
     { Private declarations }
   public
@@ -36,4 +38,14 @@ begin
   end;
 end;
 
+procedure TWebNewTenderForm.edtKeyKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = 13 then
+  begin
+    if (edtKey.Text <> '') and (edtTenderName.Text <> '') then
+      ModalResult := mrOk;
+  end;
+end;
+
 end.