Panel transparan

[dogan]

Selam;

Paneli transparan nasıl yapabilirim?

[csunguray]

Aşağıdaki bağlantılardaki örnek ve önerileri inceleyebilirsiniz.

TPanel Transparent
http://stackoverflow.com/questions/1321 ... ransparent

How to create a transparent TPanel
http://delphidabbler.com/tips/210

[Dostk]

Aşağıdaki bağlantılardaki örnek ve önerileri inceleyebilirsiniz.

TPanel Transparent
http://stackoverflow.com/questions/1321 ... ransparent

How to create a transparent TPanel
http://delphidabbler.com/tips/210

Selamlar; Bir ara bende panel transparanla ilgili bir araştırma içine girmiştim hatta sizin verdiğiniz bir çok linki incelemiştim, bu konuda panel transparan ile ilgili çözüm bulamamıştım...

[Lord_Ares]

Merhaba , şu konuda bir örnekle paylaşım yapmıştım. Kolay gelsin

ben AlphaTransPanel kullanmıştım. Kullanımı kolay ve transparan özelliğine istedeğin değeri verebiliyorsun.
Kullanmak istersen. ilgili pas dosyasını şu konuda paylaştım. viewtopic.php?f=2&t=34628&p=186528#p186528 Gönderdiğim pas dosyasını çalışmanın olduğu klasöre at ve programının interface altındaki uses kısmında AlphaTransPanel diyerek tanıt. Kullanımı basit Form2.AlphaBlendValue:=1; şeklinde kullanabilirsin. Buradaki 1 değeri büyüdükçe form görünürlüğü okadar artar. 1 yaparsan görünmez.
Kolay gelsin.

Alphatransparan

[m_yaprakci]

Yarı saydam değil de komple saydam olsun istersen panelin rengini (mesela yesil) belirle.
Ardından formun TransparentColor değerini panele belirlediğin rene ayarla.
Bu şekilde tam saydam bir panel (aslında formda panel büyüklüğünde bir delik) elde edersin.
İstersen runtime değiştirmek istersen de aşağıdaki örneğe göz atabilirsin.

Kod: Tümünü seç

procedure SetTransparent(Aform: TForm; AValue: Boolean);
begin
  Aform.TransparentColor := AValue;
  Aform.TransparentColorValue := Aform.Color;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  SetTransparent(Self, True);
end;