Delphi ile bedava Skin (Görünüm) Değiştirme

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Cevapla
Kullanıcı avatarı
ALUCARD
Üye
Mesajlar: 1258
Kayıt: 27 Eyl 2003 09:12
Konum: Samsun
İletişim:

Delphi ile bedava Skin (Görünüm) Değiştirme

Mesaj gönderen ALUCARD » 17 Ara 2015 12:16

Ben bunu yeni öğrendim bilenler vardır mutlaka. ama bilmeyenler için önemli bir şey olduğunu düşünüyorum

Delphi ile yıllardır program yazarım. En gıcık olduğum şey skin componentidir. Windows görünümünü hiç beğenmem. Ama skin componenti ninde bedavası yok. Kırık, korsan Lisanssız component de kullanmak çok işime gelmiyor.

Sonra bir arkadaşın da yardımıyla aslında Delphi XE serisinde zaten bu özelliğin olduğunu hemde bedava olduğunu gördüm. Hemde tek satır kod yazmadan.

Resim

İşte normal tasarlanmış form. şimdi buna skin ekleyelim

İsterseniz Ctrl + Shift + F11 yada aşağıdaki menüyü açıyoruz.

Resim
Resim

Gördüğünüz menüden istediğiniz skini seçebilirsiniz. seçim yaptıktan sora alt tarafta bulunan Default Style kısmından seçtiğiniz temayı varsayılan yapıyoruz. İşte bu kadar. Artık bedava Skin kullanıyoruz.

Bazı Skinleri test ettim işte örnek resimler

Resim
Resim
Resim
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz

Erkan ÇAĞLAR

Kullanıcı avatarı
hi_selamlar
Üye
Mesajlar: 523
Kayıt: 05 May 2005 02:24
Konum: DelphiTürkiye.COM

Re: Delphi ile bedava Skin (Görünüm) Değiştirme

Mesaj gönderen hi_selamlar » 17 Ara 2015 09:20

Merhaba,

Çalışma zamanında (Runtime) da değiştirebilirsiniz.

Kod: Tümünü seç

uses
  Vcl.Themes;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  TStyleManager.TrySetStyle(ComboBox1.Items[ComboBox1.ItemIndex]);
end;

procedure TForm1.FormShow(Sender: TObject);
var
  s: String;
begin
  ComboBox1.Items.BeginUpdate;
  try
    ComboBox1.Items.Clear;
    for s in TStyleManager.StyleNames do
       ComboBox1.Items.Add(s);
    ComboBox1.Sorted := True;
    ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name);
  finally
    ComboBox1.Items.EndUpdate;
  end;
end;
Kolay gelsin.
Herkes cahildir, bazi konularda.

harezmi
Üye
Mesajlar: 11
Kayıt: 20 Oca 2018 07:03

Re: Delphi ile bedava Skin (Görünüm) Değiştirme

Mesaj gönderen harezmi » 03 Haz 2019 11:31

merhaba bu kod bloğunu kullanınca comboya yalnızca windows elemanı geliyor diğer skinlerin de gelmesi için ne yapmalı?

Cevapla