timage in transparan seviyesini ayarlamak

[norths]

merhaba
resimlerimin ne kadar transpran (flu) olabilecegini nasil ayarlayabilirim

tfomda olan AlphaBlendValue gibi bir sey varmi timage da

yardimci olrumusunuz ?

internette epeyce aradim tform icin epeyce ornek var ama timage icin transparanlik seviyesini ayarlayabilecegim bir ornek bulamadim

procedure TAboutBox.FormClose
(Sender: TObject; var Action: TCloseAction);
var
i, cavb : 0..255;
begin
if AlphaBlend=False then
begin
AlphaBlendValue:=255;
AlphaBlend:=True;
end;
cavb:=AlphaBlendValue;

for i := cavb downto 0 do
begin
AlphaBlendValue := i;
Application.ProcessMessages;
end
end;

bu islemi timage icin uygulamak istiyorum...
tusa bastigimda resimlerin yavas yavas yok olmasini istiyorum

simdiden tesekkurler

[qamyoncu]

Merhaba,

İmage nesnesini yerleştirmeden önce arkaplanı bi Bitmap'a atarsan image nesnen ile bitmaptaki pixellerin renklerini ayarlayarak image nesnesini tekrar boyarsın böylelikle yokolmuş izlenimi yaratabilirsin daha sonra da image nesneni free edersin.

[nightwolfcem]

Ekte Windows APİ si(AlphaBlend;bu fonksiyon formda kullanılanla aynı değil tabiyki) kullanarak bu işi nasıl yapıcağın ile ilgili örnek hazırladım. Basit birşey geliştirmek sana kalmış