diff --git a/Projects/Simba/extensionmanagergui.lfm b/Projects/Simba/extensionmanagergui.lfm
index e3c0084..6ae58d6 100644
--- a/Projects/Simba/extensionmanagergui.lfm
+++ b/Projects/Simba/extensionmanagergui.lfm
@@ -49,6 +49,7 @@ object ExtensionsForm: TExtensionsForm
       TabOrder = 0
       ViewStyle = vsReport
       OnAdvancedCustomDrawItem = ExtensionsListAdvancedCustomDrawItem
+      OnDblClick = ExtensionsListDblClick
       OnSelectItem = ExtensionsListSelectItem
     end
     object Button: TButton
diff --git a/Projects/Simba/extensionmanagergui.pas b/Projects/Simba/extensionmanagergui.pas
index 3e4de9c..f48dc5b 100644
--- a/Projects/Simba/extensionmanagergui.pas
+++ b/Projects/Simba/extensionmanagergui.pas
@@ -22,6 +22,7 @@ type
     procedure ExtensionsListAdvancedCustomDrawItem(Sender: TCustomListView;
       Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
       var DefaultDraw: Boolean);
+    procedure ExtensionsListDblClick(Sender: TObject);
     procedure ExtensionsListSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
     procedure FormCreate(Sender: TObject);
@@ -66,6 +67,16 @@ begin
     sender.canvas.brush.color := $CCCCFF//$FF3D64;
 end;
 
+procedure TExtensionsForm.ExtensionsListDblClick(Sender: TObject);
+begin
+  if ExtensionsList.Selected <> nil then
+    with TVirtualSimbaExtension(ExtManager.Extensions[ExtensionsList.Selected.Index]) do
+    begin;
+      Enabled := not ExtEnabled.Checked;
+      ExtEnabled.Checked := Enabled;
+    end;
+end;
+
 procedure TExtensionsForm.ExtensionsListSelectItem(Sender: TObject;
   Item: TListItem; Selected: Boolean);
 var