var i,x,y:integer; begin x:=(screen.Width-form1.Width)shr 1; y:=(screen.Height-form1.Height)shr 1; for i:=0 to 255 do begin setwindowpos(handle,HWND_TOP, x+round(y*(1-i/255)*cos(i*pi/127.5)), y+round(y*(1-i/255)*sin(i*pi/127.5)), form1.Width,form1.Height, SWP_NOSENDCHANGING ); AlphaBlendValue:=i; Application.ProcessMessages; end;
Вот и все))) Теперь форма будет появляться, крутясь!
