Windows 10 und Scaled in Runtime

[Thomasl]

Das ist zwar schon alt hier, ich habe aber nichts zum Thema gefunden.
vielleicht hilft es jemandem.
nur im constructor Scaled setzen hat auch nicht funktioniert
so funktioniert es bei mir

z.B.
Form1 := TForm1.Create(Application,False);

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TScaled = (scaledDfm, scaledTrue, scaledFalse);

  TForm1 = class(TForm)
  private
    { Private declarations }
    XScaled: TScaled;
  protected
    procedure InitializeNewForm; override;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; AScaled: boolean); reintroduce;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent; AScaled: boolean);
begin
  if AScaled then
    XScaled := scaledTrue
  else
    XScaled := scaledFalse;
  inherited Create(AOwner);
  // hier Scaled einstellen, ist schon zu spät
end;

procedure TForm1.InitializeNewForm;
begin
  inherited;
  case XScaled of
    scaledTrue:
      Scaled := True;
    scaledFalse:
      Scaled := False;
  end;
end;

end.