[Delphi] Vcl.Themes 콤보박스로 설정

 

사용할 테마 체크.

 

 

uses

Vcl.Themes, Vcl.StdCtrls

 

procedure TForm7.ComboBox1Change(Sender: TObject);

begin

  TStyleManager.SetStyle(ComboBox1.Text);

end;

 

procedure TForm7.FormCreate(Sender : TObject);

var

  StyleName : string;

begin

  for StyleName in TStyleManager.StyleNames do

    ComboBox1.Items.Add(StyleName);

 

  ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name);

end;