Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как получить сообщение об изменении стиля?

01.01.2007
const
  WM_THEMECHANGED
= $031A;
 
type
  TForm1
= class(TForm)
   
{...}
 
private
 
public
    procedure WMTHEMECHANGED
(var Msg: TMessage); message WM_THEMECHANGED;
 
end;
 
{...}
 
implementation
 
{...}
 
procedure TForm1
.WMTHEMECHANGED(var Msg: TMessage);
begin
  Label1
.Caption := 'Theme changed';
 
Msg.Result := 0;
end;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php