diff --git a/lcl/dialogs.pp b/lcl/dialogs.pp
index 90aea35d60..bfb4f2379b 100644
--- a/lcl/dialogs.pp
+++ b/lcl/dialogs.pp
@@ -541,7 +541,8 @@ type
     tfVerificationFlagChecked, tfShowProgressBar,
     tfShowMarqueeProgressBar, tfCallbackTimer,
     tfPositionRelativeToWindow, tfRtlLayout,
-    tfNoDefaultRadioButton, tfCanBeMinimized);
+    tfNoDefaultRadioButton, tfCanBeMinimized,
+    tfForceNonNative);
   TTaskDialogFlags = set of TTaskDialogFlag;
 
   TTaskDialogCommonButton = (tcbOk, tcbYes, tcbNo, tcbCancel, tcbRetry, tcbClose);
diff --git a/lcl/include/taskdialog.inc b/lcl/include/taskdialog.inc
index 6fce389aef..60ea084b19 100644
--- a/lcl/include/taskdialog.inc
+++ b/lcl/include/taskdialog.inc
@@ -240,7 +240,7 @@ begin
   TaskDlg.Verify := VerificationText;
 
   ButtonID := TaskDlg.Execute(TD_COMMONBUTTONS(CommonButtons), DefBtn, TD_FLAGS(Flags), TF_DIALOGICON(MainIcon), TF_FOOTERICON(FooterIcon),
-    DefRB, 0, ParentWnd, False, False, @DoOnButtonClickedHandler);
+    DefRB, 0, ParentWnd, tfForceNonNative in Flags, False, @DoOnButtonClickedHandler);
   Result := ButtonID>=0;
   FModalResult := ButtonIDToModalResult(ButtonID);