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;