diff --git a/src/u_toolseditor.lfm b/src/u_toolseditor.lfm
index fba5078d..057159e9 100644
--- a/src/u_toolseditor.lfm
+++ b/src/u_toolseditor.lfm
@@ -34,6 +34,7 @@ inherited ToolsEditorWidget: TToolsEditorWidget
         ItemHeight = 0
         OnDblClick = lstToolsDblClick
         OnDrawItem = lstToolsDrawItem
+        OnKeyPress = lstToolsKeyPress
         OnSelectionChange = lstToolsSelectionChange
         ScrollWidth = 158
         Style = lbOwnerDrawFixed
diff --git a/src/u_toolseditor.pas b/src/u_toolseditor.pas
index 0703c3d8..62d1f29e 100644
--- a/src/u_toolseditor.pas
+++ b/src/u_toolseditor.pas
@@ -36,6 +36,7 @@ type
     procedure lstToolsDblClick(Sender: TObject);
     procedure lstToolsDrawItem(Control: TWinControl; Index: Integer;
       ARect: TRect; State: TOwnerDrawState);
+    procedure lstToolsKeyPress(Sender: TObject; var Key: char);
     procedure lstToolsSelectionChange(Sender: TObject; User: boolean);
     procedure propsEdModified(Sender: TObject);
   private
@@ -261,5 +262,10 @@ begin
   lstTools.Canvas.TextOut(rc.Left, rc.Top , CustomTools.tool[Index].toolAlias);
 end;
 
+procedure TToolsEditorWidget.lstToolsKeyPress(Sender: TObject; var Key: char);
+begin
+  key := #0;
+end;
+
 end.