diff --git a/lcl/interfaces/cocoa/cocoawsdialogs.pas b/lcl/interfaces/cocoa/cocoawsdialogs.pas
index 9f6d896128..f0db36c0b9 100644
--- a/lcl/interfaces/cocoa/cocoawsdialogs.pas
+++ b/lcl/interfaces/cocoa/cocoawsdialogs.pas
@@ -759,7 +759,11 @@ end;
 procedure TCocoaFilterComboBox.comboboxAction(sender: id);
 begin
   if (indexOfSelectedItem <> lastSelectedItemIndex) then
+  begin
     setDialogFilter(indexOfSelectedItem);
+    if Assigned(Owner) then
+      Owner.IntfFileTypeChanged(lastSelectedItemIndex);
+  end;
   lastSelectedItemIndex := indexOfSelectedItem;
 end;