diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 7716c9a035..62811d209e 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -2613,6 +2613,7 @@ resourcestring
     +'sources.%s%sIt only means: It is a bad idea to open the forms for '
     +'designing, before installing the missing packages.%s%s';
   lisPackageNeedsInstallation = 'Package needs installation';
+  lisPkgMangSkipThisPackage = 'Skip this package';
   lisPkgMangInvalidFileExtension = 'Invalid file extension';
   lisPkgMangTheFileIsNotALazarusPackage = 'The file %s%s%s is not a lazarus '
     +'package.';
diff --git a/ide/main.pp b/ide/main.pp
index 4e2d90f6e9..9d9eb8d105 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -2210,7 +2210,7 @@ begin
       For I := 0 to OpenDialog.Files.Count-1 do
         Begin
           AFilename:=CleanAndExpandFilename(OpenDialog.Files.Strings[i]);
-          if i<OpenDialog.Files.Count then
+          if i<OpenDialog.Files.Count-1 then
             Include(OpenFlags,ofMultiOpen)
           else
             Exclude(OpenFlags,ofMultiOpen);
diff --git a/ideintf/packageintf.pas b/ideintf/packageintf.pas
index 926d09bcde..909b0d3f8b 100644
--- a/ideintf/packageintf.pas
+++ b/ideintf/packageintf.pas
@@ -37,9 +37,10 @@ type
   TPkgSaveFlags = set of TPkgSaveFlag;
 
   TPkgOpenFlag = (
-    pofAddToRecent,  // add file to recent files
-    pofRevert,       // reload file if already open
-    pofConvertMacros // replace macros in filename
+    pofAddToRecent,   // add file to recent files
+    pofRevert,        // reload file if already open
+    pofConvertMacros, // replace macros in filename
+    pofMultiOpen      // set during loading multiple files
     );
   TPkgOpenFlags = set of TPkgOpenFlag;
 
diff --git a/packager/basepkgmanager.pas b/packager/basepkgmanager.pas
index b09c7b9818..7164759724 100644
--- a/packager/basepkgmanager.pas
+++ b/packager/basepkgmanager.pas
@@ -147,7 +147,8 @@ const
   PkgOpenFlagNames: array[TPkgOpenFlag] of string = (
     'pofAddToRecent',
     'pofRevert',
-    'pofConvertMacros'
+    'pofConvertMacros',
+    'pofMultiOpen'
     );
 
 function PkgSaveFlagsToString(Flags: TPkgSaveFlags): string;
diff --git a/packager/pkgmanager.pas b/packager/pkgmanager.pas
index f77b9edac0..70102f1b3b 100644
--- a/packager/pkgmanager.pas
+++ b/packager/pkgmanager.pas
@@ -350,6 +350,10 @@ begin
       For I := 0 to OpenDialog.Files.Count-1 do
         Begin
           AFilename:=CleanAndExpandFilename(OpenDialog.Files.Strings[i]);
+          if i<OpenDialog.Files.Count-1 then
+            Include(OpenFlags,pofMultiOpen)
+          else
+            Exclude(OpenFlags,pofMultiOpen);
           if DoOpenPackageFile(AFilename,OpenFlags)=mrAbort then begin
             break;
           end;
@@ -2250,6 +2254,16 @@ var
   APackage: TLazPackage;
   XMLConfig: TXMLConfig;
   AlternativePkgName: String;
+  
+  procedure DoQuestionDlg(const Caption, Message: string);
+  begin
+    if pofMultiOpen in Flags then
+      Result:=IDEQuestionDialog(Caption, Message,
+        mtError, [mrIgnore, lisPkgMangSkipThisPackage, mrAbort])
+    else
+      Result:=IDEQuestionDialog(Caption, Message,
+        mtError,[mrAbort])
+  end;
 begin
   // replace macros
   if pofConvertMacros in Flags then begin
@@ -2260,9 +2274,8 @@ begin
   
   // check file extension
   if CompareFileExt(AFilename,'.lpk',false)<>0 then begin
-    Result:=IDEMessageDialog(lisPkgMangInvalidFileExtension,
-      Format(lisPkgMangTheFileIsNotALazarusPackage, ['"', AFilename, '"']),
-      mtError,[mbCancel,mbAbort]);
+    DoQuestionDlg(lisPkgMangInvalidFileExtension,
+      Format(lisPkgMangTheFileIsNotALazarusPackage, ['"', AFilename, '"']));
     RemoveFromRecentList(AFilename,EnvironmentOptions.RecentPackageFiles);
     SetRecentPackagesMenu;
     exit;
@@ -2272,10 +2285,9 @@ begin
   AlternativePkgName:=ExtractFileNameOnly(AFilename);
   if (AlternativePkgName='') or (not IsValidIdent(AlternativePkgName)) then
   begin
-    Result:=IDEMessageDialog(lisPkgMangInvalidPackageFilename,
+    DoQuestionDlg(lisPkgMangInvalidPackageFilename,
       Format(lisPkgMangThePackageFileNameInIsNotAValidLazarusPackageName, ['"',
-        AlternativePkgName, '"', #13, '"', AFilename, '"']),
-      mtError,[mbCancel,mbAbort]);
+        AlternativePkgName, '"', #13, '"', AFilename, '"']));
     RemoveFromRecentList(AFilename,EnvironmentOptions.RecentPackageFiles);
     SetRecentPackagesMenu;
     exit;
@@ -2319,10 +2331,9 @@ begin
         end;
       except
         on E: Exception do begin
-          Result:=IDEMessageDialog(lisPkgMangErrorReadingPackage,
+          DoQuestionDlg(lisPkgMangErrorReadingPackage,
             Format(lisPkgUnableToReadPackageFileError, ['"', AFilename, '"',
-              #13, E.Message]),
-            mtError,[mbAbort,mbCancel]);
+              #13, E.Message]));
           exit;
         end;
       end;