diff --git a/lcl/stdactns.pas b/lcl/stdactns.pas
index ca9a550b62..daba54e632 100644
--- a/lcl/stdactns.pas
+++ b/lcl/stdactns.pas
@@ -680,6 +680,7 @@ begin
   begin
     FDialog := DlgClass.Create(Self);
     FDialog.Name := DlgClass.ClassName;
+    FDialog.SetSubComponent(True);
   end;
 end;