diff --git a/src/ce_projgroup.pas b/src/ce_projgroup.pas
index fad7ed68..0e4e4986 100644
--- a/src/ce_projgroup.pas
+++ b/src/ce_projgroup.pas
@@ -431,15 +431,24 @@ end;
 
 {$REGION Widget project group things -------------------------------------------}
 procedure TCEProjectGroupWidget.BtnAddProjClick(Sender: TObject);
+var
+  fname: string;
+  added: boolean;
 begin
   with TOpenDialog.Create(nil) do
   try
+    Options:= [ofAllowMultiSelect, ofEnableSizing];
     if not execute then
       exit;
-    if projectGroup.findProject(filename) <> nil then
-      exit;
-    projectGroup.addItem(filename);
-    updateList;
+    for fname in Files do
+    begin
+      if projectGroup.findProject(fname) <> nil then
+        continue;
+      projectGroup.addItem(fname);
+      added := true;
+    end;
+    if added then
+      updateList;
   finally
     free;
   end;