Delphi TStyleManager

Yeni bir VCL windows application proje ye başladığımızda Delphi bize varsayılan görünüm olarak Windows style ını verir dilersek kendimiz bunu ide üzerinden değiştirebileceğimiz gibi kullanıcı ya da bu seçimi bırakabiliriz.
Project Options(Shift + Ctrl + F11) Application başlığı altındaki appearance bağlığında tıkladığımızda aşağıda ki görseldeki görüntü gelecektir.

Style değişikliklerinde elde edeceğimiz görünümler için ekrana görsel olan 4-5 component ekleyelim
Uses ‘a
Vcl.Themes

Ekliyoruz, Formumuzun on create event ına

procedure TForm1.FormCreate(Sender: TObject);
var
StyleName:string;
begin
ComboBox1.Clear;
for StyleName  in  TStyleManager.StyleNames  do
ComboBox1.Items.Add(StyleName);
end;

Stylename leri combobox bileşenimizin item ına yükledik şimdi combobox tan seçim yaptığımızda theme mızın değişmesini sağlayalım.
Combobox ın onchange eventına

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
TStyleManager.SetStyle(ComboBox1.Text);
end;