...get notified when the user changes the theme (XP)?

Author: Rainer Kümmerle
Homepage: http://www.thinklazy.de

Category: System

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base