Fensteranimation deaktivieren bei TStyleManager.TrySetStyle(sStyleName)

[KodeZwerg]

Ich habe Dein Demoprojekt wie folgt geändert mit dem Resultat das das Window nicht neu erstellt wird aber Inhalt aktualisiert wird.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure MyMessage(var Msg: TMessage); message CM_RECREATEWND;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyMessage(var Msg: TMessage);
begin
  if Msg.Result=0 then
  begin
    Label1.Caption:='W - '+IntToStr(Msg.WParam); // irgendwas anzeigen um eine sichtbare veränderung zu demonstrieren
    Label2.Caption:='L - '+IntToStr(Msg.LParam); // irgendwas anzeigen um eine sichtbare veränderung zu demonstrieren
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.RecreateWnd;
end;

end.

Hilft das?