появление формы

[quarty]

подскажите, как сделать чтобы форма медленно появлялась...
запускаешь программу и форма должна медленно появиться

[Pein95]

animateWindow(form1.handle, 2000, aw_blend);
form1.show;
попробуй так

[SNUPY]

Кидаешь на форму Timer1Timer задаешь нужный тебе интервал, например 50.
У формы в свойствах ставишь AlphaBlendValue := 0 и AlphaBlend = true

пишеш на событие срабатывание таймера вот такой код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.AlphaBlendValue := Form1.AlphaBlendValue + 5;
  if Form1.AlphaBlendValue =255 then
  begin
    TTimer(Sender).Enabled := false;
    Form1.AlphaBlend := False;
  end;
end;

[SERG1980]

procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(Handle, 1000, AW_BLEND);
end;

[Win7]

Подскажи лучше, как сделать, чтобы она появлялась как бы сепией

[Win7]

Подскажи, как можно сделать, чтобы форма появлялась в виде сепии

[Win7]

!!!!!!!!!!!!!!!!!