TCustomTaskDialog: inherit form TLCLComponent and register the widgetset class.

lcl/dialogs.pp

@@ -613,7 +613,9 @@ type
     property Items[Index: Integer]: TTaskDialogBaseButtonItem read GetItem write SetItem; default;
   end;
 
-  TCustomTaskDialog = class(TComponent)
+  { TCustomTaskDialog }
+
+  TCustomTaskDialog = class(TLCLComponent)
   private
     FButton: TTaskDialogButtonItem;
     FButtons: TTaskDialogButtons;
@@ -640,6 +642,7 @@ type
     procedure SetRadioButtons(const Value: TTaskDialogButtons);
     function ButtonIDToModalResult(const AButtonID: Integer): TModalResult;
   protected
+    class procedure WSRegisterClass; override;
     function DoExecute(ParentWnd: HWND): Boolean; dynamic;
     procedure DoOnButtonClicked(AModalResult: Integer; var ACanClose: Boolean); dynamic;
   public

lcl/include/taskdialog.inc

@@ -118,6 +118,13 @@ begin
     Result := mrNone;
 end;
 
+class procedure TCustomTaskDialog.WSRegisterClass;
+begin
+  inherited WSRegisterClass;
+  RegisterTaskDialog;
+end;
+
+
 destructor TCustomTaskDialog.Destroy;
 begin
   FButtons.Free;

lcl/interfaces/win32/win32wsdialogs.pp

@@ -1576,6 +1576,7 @@ end;
 
 class function TWin32WSTaskDialog.Execute(const ADlg: TCustomTaskDialog): Boolean;
 begin
+  //writeln('TWin32WSTaskDialog.Execute');
   Result := inherited Execute(ADlg);
 end;
 

lcl/taskdlgemulation.pp

@@ -16,6 +16,7 @@ implementation
 
 function ExecuteLCLTaskDialog(const ADlg: TTaskDialog): Boolean;
 begin
+  //writeln('ExecuteLCLTaskDialog');
   Result := False;
 end;
 

lcl/widgetset/wsdialogs.pp

@@ -103,8 +103,8 @@ type
   end;
 
   { TWSTaskDialog }
-
-  TWSTaskDialog  = class(TWSCommonDialog)
+  TWSTaskDialogClass = class of TWSTaskDialog;
+  TWSTaskDialog  = class(TWSLCLComponent)
   published
     class function Execute(const ADlg: TCustomTaskDialog): Boolean; virtual;
   end;
@@ -200,6 +200,7 @@ end;
 
 class function TWSTaskDialog.Execute(const ADlg: TCustomTaskDialog): Boolean;
 begin
+  //writeln('TWSTaskDialog.Execute');
   Result := ExecuteLCLTaskDialog(TTaskDialog(ADlg));
 end;