Formu silik gösterme

[mepc]

Merhaba arkadaşlar

Kullandığım formları aynen XP kapanışındaki gibi arkadaki form silik görünecek hale nasıl getirebilirim.

Sadece aktif olan form renkli görünecek diğerleri soluk şekilde tek renk görünecek.

[oguzozturk74]

normalde Delphi7 de formu transparan yapmak için:
Formun propertiesinden
AlphaBlend = True
yapıyorsun ve
defoultu 255 olan AlphaBlendValue değerini 0 a doğru değer verdikçe formunuz transparan oluyor. (Burada 255 için form tam görüküyor, 0 için ise hiç görükmüyor)

Umarım işine yarar

[oguzozturk74]

Sizin için şöyle bir deneme yaptım.

2 tane formumuz olsun:
1. formumuzda

Kod: Tümünü seç

uses unit2

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.showmodal;
end;

2. formumuzda ise

Kod: Tümünü seç

uses Unit1;

procedure TForm2.FormShow(Sender: TObject);
begin
   form1.AlphaBlend:=true;
   form1.AlphaBlendValue:=155;   // [i]bu sayı 0 ile 255 arasında değişebilir[/i].
end;

deneyin ve görün , sanırım dediğiniz gibi olacak.

[muskut]

Dikkatinize, bu ALPHA olayı WinXP de çalışır ama 98 de çalışmaz ona göre sonra suçu delphiye atma Bununla ilgili olarak, şöyle bir çözüm de yapabilirsin, ekranın görüntüsünüçeker, renkleri yavaş yavaş değiştirip bir geçiş sağlayabilirsin, ama diyorsan ki, yok ben ikspe den başka bi işletim sisteminde kullanmam, ozaman en güzel ALPHA

Kolay gele[/u]

[mepc]

malesef deneyemedim çünkü D 5 kullanıyorum.

Cevabın için teşekkürler

[andrea]

Dikkatinize, bu ALPHA olayı WinXP de çalışır ama 98 de çalışmaz ona göre sonra suçu delphiye atma [/u]

he he...
ben bu uyarıyı ne yazık ki deneme(ler) yapıp, çalışmadığını yazmaya açdığımda okudum Neyse evde deneriz bizde artık

[oguzozturk74]

Bu özellik Delphi5 te yok sanırım.
Delphi6 da var mı bilmiyorum.Kullanan arkadaşlar söylebilirler.
Delphi7 de ise sorunsuz çalışıyor.

[akgun83]

delphi6 da var

[andrea]

Dikkatinize, bu ALPHA olayı WinXP de çalışır ama 98 de çalışmaz ona göre sonra suçu delphiye atma [/u]

he he...
ben bu uyarıyı ne yazık ki deneme(ler) yapıp, çalışmadığını yazmaya açdığımda okudum Neyse evde deneriz bizde artık

eksik yazmışım : w98se

[MicroChip]

konu hakkında 3.parti bileşenler var haberin olsun... isimleri aklımda değil

[warder]

Borland bazan katkıda bulunmakla beraber Properties tabında bulunan özellikleri standart windows sınıflarından alıyor. Bunu TForm sınıfı için yazıyorum. Diğer bir ifadeyle programcının windows apileri ile uğraşıp kodla yapması gereken bir çok özelliği properties tabında sunuyor. Tamal anlatımla windows sınıfı kayıt sırasında bu özellikler talep ediliyor.
Soruyla alakası şu.
Delphi 5 te yok 6 veya 7 de var olması sadece borlandın veya Microsoftun bu özelliği programcısına yeni sunmasından kaynaklanabilir. Transparent form için a şıkkı geçerli. Borland bu özelliği yeni ekledi. Üstelik her sistemde çalışmayacak şekilde başarısız.
Diğer bir ifade ile kodla kendiniz yapabilirsiniz.

Kod: Tümünü seç

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) | WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, 0, 100, LWA_ALPHA);

belirleyici olan 100 integer alandır. değişkenle kontrol edilebilir.
Delphicesine karışmam.