Визуальные эффекты в Delphi

[SKS]

Доброго времени суток!
Подскажите пож-ста есть ли сайты на которых выложены коды программ с использованием спец.эффектов. т.е. программы в которых присутствуют те или иные спец.эффекты? Очень хочется в этом направлении потрудиться.
аранее благодарю!

[Stilet]

Раньше видел такое на torry где компоненты качал.

[inndim]

Используй компоненты Billenium Effects с сайта http://www.billeniumsoft.com/bef/ или SmartEffects с сайта http://almdev.com/, но они все платные, но если очень хочется, то могу поделиться отученными от жадности.

[Vladya]

Или используй Animation Effect это бесплатный.

[DeDoK]

Могу предложить пару эффектиков
например разворачивание формы при открытии и закрытии

procedure TForm1.FormCreate(Seder : TObject);
var
r1, r2 : TRect;
l,t,r,b : integer;
begin
l:=Form1.Left+Round(Form1.Width/2);
t:=Form1.Top+Round(Form1.Height/2);
r:=Form1.Left+Round(Form1.Width/2);
b:=Form1.Top+Round(Form1.Height/2);
r1:=Rect(l,t,r,b);
r2:=BoundsRect;
drawanimatedRects(Handle, IDANI_CAPTION,r1,r2);
end;

procedure TForm1.FormClose(Seder : TObject);
var
r1, r2 : TRect;
l,t,r,b : integer;
begin
l:=Form1.Left+Round(Form1.Width/2);
t:=Form1.Top+Round(Form1.Height/2);
r:=Form1.Left+Round(Form1.Width/2);
b:=Form1.Top+Round(Form1.Height/2);
r1:=Rect(l,t,r,b);
r2:=BoundsRect;
drawanimatedRects(Handle, IDANI_CAPTION,r2,r1);
end;

[Nester]

Может не в тему но тоже еффект