دادن افکت به فرم های دلفی بدون استفاده از کامپوننت

به سادگی در دلفی با استفاده از کد زیر می توان به فرم افکت داد که با تغییر AW_VER_POSITIVE    می توان حالت های  مختلف به فرم داد .

AnimateWindow(Form1.Handle, 300, AW_VER_POSITIVE   );

دادن افکت به اجزا فرم یا خود فرم برای نمایش می توانید کد زیر را تغییر دهید . به عنوان مثال کد زیر برای تغییر نمایش پنل است 

if  hidden = False then

begin

  AnimateWindow(Panel1.Handle, 256, AW_SLIDE or AW_HOR_NEGATIVE or AW_HIDE);

  hidden := True;

end

else

begin

  AnimateWindow(Panel1.Handle, 256, AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);

  hidden := False;

end;