VB 6 Daki Skinleri Delphi de kullanma ! ( kaçırmayın işinize yarayabilir )
ilk önce şu ocx dosyasını dowland edelim. ( 150 KB ) direkt linktir. kendi hostuma yükledim
link : indirmek için bana tıkla
skininiz yoksa 50 adet skin (paket1.) link : Tıkla
as.rar dan as.ocx dosyasını system32 ye çıkartıyoruz
çıkarttıktan sonra delphi açalım , ve component > import activex control deyin
sonra orada active skin 4.0 type control gibi bir şey varsa 1 kere tıklayın en altta instala tıklayın
eğer yoksa add a tıklayın system32 ye bakın as.ocx ekleyip install deyin
sonra standart win32 gibi bölümler buton vs ekleme varya oranın en sonundakinin bir öncesine tıklayın adı : activeX
orada skin diye bişey geldi onu forma ekleyin
sonra forma çift tıklayıp şu kodu yazın
sonra skin1 e sağ tıklayıp load skin deyip skininizi seçebilirsiniz
NeXusS farkıyla. bunuda karıştırırken buldum aşağıda ekran görüntüsü
aşağıdaki resim aslında daha iyi görünüyordu ama kaydederken bozuldu
1 teşekkürü çok görmeyin :mml
ilk önce şu ocx dosyasını dowland edelim. ( 150 KB ) direkt linktir. kendi hostuma yükledim
link : indirmek için bana tıkla
skininiz yoksa 50 adet skin (paket1.) link : Tıkla
as.rar dan as.ocx dosyasını system32 ye çıkartıyoruz
çıkarttıktan sonra delphi açalım , ve component > import activex control deyin
sonra orada active skin 4.0 type control gibi bir şey varsa 1 kere tıklayın en altta instala tıklayın
eğer yoksa add a tıklayın system32 ye bakın as.ocx ekleyip install deyin
sonra standart win32 gibi bölümler buton vs ekleme varya oranın en sonundakinin bir öncesine tıklayın adı : activeX
orada skin diye bişey geldi onu forma ekleyin
sonra forma çift tıklayıp şu kodu yazın
Kod:
skn1.ApplySkin(HWND_DESKTOP);
sonra skin1 e sağ tıklayıp load skin deyip skininizi seçebilirsiniz
NeXusS farkıyla. bunuda karıştırırken buldum aşağıda ekran görüntüsü
aşağıdaki resim aslında daha iyi görünüyordu ama kaydederken bozuldu
1 teşekkürü çok görmeyin :mml
Son düzenleme: