کم وزیار کردن Transparent فرم دلفی

[zehs_sha]

بچه چگونه می توانم Transparent فرم را کم زیاد کنم به طوری که کاملا محو نشود و اندازه شفافیت ان دست خودم باشد.

[Sepidar]

سلام
خصوصیت AlphaBlend فرم را برابر True قرار دهید. حال با کم و زیاد کردن خصوصیت AlphaBlendValue بین 0 تا 255 مقدار Teransparency فرم خود را مشخص کنید.

[zehs_sha]

من رنگ فرمم را سیاه کردم و عکسی بر روی فرمم انداختم بعد با توجه به گفته شما مقدار Teransparency فرم را از صفر
به 255 افزایش می دهم اما نمی دانم چرا در پایان عکس از بین می رود


procedure TForm1.Effect29(FileBmp:string); //new 82/12/1
var
Bitmap,ehs:Tbitmap;
i:integer;
begin
Bitmap:=Tbitmap.Create;
Form1.AlphaBlend:=true;
Bitmap.LoadFromFile(filebmp);
Canvas.Draw(0,0,Bitmap);
i:=0;
repeat
Form1.AlphaBlendValue:=i;
inc(i,2)
until (i>255);
end;

[JavanSoft]

فکر میکنم به شفافیت کامل میرسد

[zehs_sha]

ببخشید شفافیت کامل 0 است نه 255

[said ali]

با سلام
معما طرح میکنی . اگه یه نگاهی به کدت بندازی چون دو تا دو تا به شمارنده اضافه میکنی در آخرین حلقه عدد شمارنده برابر 256 میشود که چون AlphaBlendValue یه متغیر از نوع Byte خودبخود 256 تبدیل به صفر میشه و فرم محو میشه. همین برای اینکه این جوری نشه بجای اینکه شمارنده رو از 0 شروع کنی از 1 شروع کن.
والسلام.

[zehs_sha]

خیر معما طرح نمی کنم قبلا مقدار را کمتر از 255 گذاشتم مثلا 250 اما باز نشد از یک هم شروع کردم باز نشد

[moradi_am]

AlphaBlend فرم را در موقع design برابر True کنید درست میشود (مجرب است).

[zehs_sha]

یعنی در موقع design برابر True کنید یعنی چه می شود بیشتر توضیح دهید.

[moradi_am]

یعنی در پنجره object inspector مقدار خاصیت AlphaBlend را true کنید .

[zehs_sha]

متشکرم :تشویق: :kiss: :flower: :heart:

[moradi_am]

خواهش میکنم بابا. نا قابل بود . اینقدر شرمنده نفرمایید . :oops: :oops: