diff --git a/packager/pkglinksdlg.lfm b/packager/pkglinksdlg.lfm
index 1d3678ca2b..55f127a894 100644
--- a/packager/pkglinksdlg.lfm
+++ b/packager/pkglinksdlg.lfm
@@ -137,10 +137,8 @@ object PackageLinksDialog: TPackageLinksDialog
       end>
     FixedCols = 0
     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goTabs, goColSpanning, goDblClickAutoSize, goSmoothScroll]
+    PopupMenu = GridPopupMenu
     TabOrder = 1
-    OnCheckboxToggled = PkgStringGridCheckboxToggled
-    OnSelection = PkgStringGridSelection
-    OnValidateEntry = PkgStringGridValidateEntry
   end
   object BtnPanel: TPanel
     Left = 0
@@ -194,4 +192,12 @@ object PackageLinksDialog: TPackageLinksDialog
     left = 355
     top = 190
   end
+  object GridPopupMenu: TPopupMenu
+    left = 206
+    top = 288
+    object CopyCellToClipboardMenuItem: TMenuItem
+      Caption = 'CopyCellToClipboard'
+      OnClick = CopyCellToClipboardMenuItemClick
+    end
+  end
 end
diff --git a/packager/pkglinksdlg.pas b/packager/pkglinksdlg.pas
index ad1c119d1a..84b5e09e68 100644
--- a/packager/pkglinksdlg.pas
+++ b/packager/pkglinksdlg.pas
@@ -38,7 +38,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Buttons, Grids, ExtCtrls, ComCtrls, AvgLvlTree, LazUTF8,
+  Buttons, Grids, ExtCtrls, ComCtrls, Menus, AvgLvlTree, LazUTF8,
   FileProcs, PackageIntf,
   LazarusIDEStrConsts, PackageDefs, PackageLinks, LPKCache;
 
@@ -72,12 +72,15 @@ type
     LPKFileValidCheckBox: TCheckBox;
     LPKFileInvalidCheckBox: TCheckBox;
     LPKParsingTimer: TTimer;
+    CopyCellToClipboardMenuItem: TMenuItem;
+    GridPopupMenu: TPopupMenu;
     ProgressBar1: TProgressBar;
     ShowUserLinksCheckBox: TCheckBox;
     ShowGlobalLinksCheckBox: TCheckBox;
     ScopeGroupBox: TGroupBox;
     PkgStringGrid: TStringGrid;
     UpdateGlobalLinksButton: TButton;
+    procedure CopyCellToClipboardMenuItemClick(Sender: TObject);
     procedure FilterEditChange(Sender: TObject);
     procedure FilterEditEnter(Sender: TObject);
     procedure FilterEditExit(Sender: TObject);
@@ -87,11 +90,6 @@ type
     procedure LPKFileInvalidCheckBoxChange(Sender: TObject);
     procedure LPKParsingTimerTimer(Sender: TObject);
     procedure OnAllLPKParsed(Sender: TObject);
-    procedure PkgStringGridCheckboxToggled(sender: TObject; aCol,
-      aRow: Integer; aState: TCheckboxState);
-    procedure PkgStringGridSelection(Sender: TObject; aCol, aRow: Integer);
-    procedure PkgStringGridValidateEntry(sender: TObject; aCol, aRow: Integer;
-      const OldValue: string; var NewValue: String);
     procedure ShowGlobalLinksCheckBoxChange(Sender: TObject);
     procedure ShowUserLinksCheckBoxChange(Sender: TObject);
     procedure UpdateGlobalLinksButtonClick(Sender: TObject);
@@ -137,7 +135,7 @@ procedure TPackageLinksDialog.FormCreate(Sender: TObject);
 begin
   Caption:=lisPLDPackageLinks;
   ScopeGroupBox.Caption:=dlgScope;
-  UpdateFacets;
+  CopyCellToClipboardMenuItem.Caption:=srkmecCopy;
   UpdateGlobalLinksButton.Caption:=lrsRescanLplFiles;
   CloseBitBtn.Caption:=lisClose;
   FilterEdit.Text:=lisCEFilter;
@@ -155,6 +153,11 @@ begin
   UpdatePackageList;
 end;
 
+procedure TPackageLinksDialog.CopyCellToClipboardMenuItemClick(Sender: TObject);
+begin
+  PkgStringGrid.CopyToClipboard(true);
+end;
+
 procedure TPackageLinksDialog.FilterEditEnter(Sender: TObject);
 begin
   if FilterEdit.Text=lisCEFilter then
@@ -196,24 +199,6 @@ begin
   UpdatePackageList;
 end;
 
-procedure TPackageLinksDialog.PkgStringGridCheckboxToggled(sender: TObject;
-  aCol, aRow: Integer; aState: TCheckboxState);
-begin
-
-end;
-
-procedure TPackageLinksDialog.PkgStringGridSelection(Sender: TObject; aCol,
-  aRow: Integer);
-begin
-
-end;
-
-procedure TPackageLinksDialog.PkgStringGridValidateEntry(sender: TObject; aCol,
-  aRow: Integer; const OldValue: string; var NewValue: String);
-begin
-
-end;
-
 procedure TPackageLinksDialog.ShowGlobalLinksCheckBoxChange(Sender: TObject);
 begin
   UpdatePackageList;