وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/٢٤

How to fade forms in and out

To fade in:

var
  j : Integer;
begin
  j := 0;
  while j < 255 do 
   j := j + 1;
   Form1.AlphaBlendValue := j;
end;

To fade out

var
  j : Integer;
begin
  j := 255;
  while j > 0 do 
    j := j - 1;
    Form1.AlphaBlendValue := j;
  end;
end;
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :