Анимация форм

[Volkogriz]

Всем Доброго времени суток !!!
Подскожите кто что может или знает по теме Анимация форм пожалусто!
Стондартную Знаю!
Каму интересно:

hwnd - Дескриптор окна, которое анимируется. Вызывающий поток должен владеть этим окном. 
dwTime - Устанавливает временя необходимое для того чтобы воспроизвести мультипликацию. Указывается в миллисекундах.
dwFlags - Определяет тип мультипликации. Этот параметр может состоять из одного или нескольких значений расположенных ниже. 
AW_SLIDE - Использует слайдовую анимацию. По умолчанию используется анимационный ролик. Этот флажок игнорируется тогда, когда пользуется с флажком AW_CENTER. 
AW_ACTIVATE - Активизирует окно (при показе окна). Не используйте это значение совместно с AW_HIDE. 
AW_BLEND - Использует эффект постепенного изменения прозрачности окна. Этот флажок может быть использован только в том случае, если параметр hwnd - окно верхнего уровня. 
AW_HIDE - Скрывает окно. По умолчанию, окно показывается на экран. 
AW_CENTER - Делает вид окна сжатым в точку, если используется флажок AW_HIDE или раскрытым из точки до полного размера, если флажок AW_HIDE не используется. Различные предписывающие флаги не имеют никакого действия. 
AW_HOR_POSITIVE - Анимирует окно слева направо. Этот флажок может быть использован с роликом или слайдом мультипликации. Он игнорируется, когда используется с флажком AW_CENTER или AW_BLEND. 
AW_HOR_NEGATIVE - Анимирует окно справа налево. Этот флажок может быть использован с роликом или слайдом мультипликации. Он игнорируется, когда используется с флажком AW_CENTER или AW_BLEND. 
AW_VER_POSITIVE - Анимирует окно сверху вниз. Этот флажок может быть использованы с роликом или слайдом мультипликации. Он игнорируется, когда используется с флажком AW_CENTER или AW_BLEND. 
AW_VER_NEGATIVE - Анимирует окно снизу вверх. Этот флажок может быть использован с роликом или слайдом мультипликации. Он игнорируется, когда используется с флажком AW_CENTER или AW_BLEND.

Использовать:

procedure TForm1.FormShow(Sender: TObject);
begin
             AnimateWindow(Handle, 500, AW_CENTER or AW_SLIDE);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
             AnimateWindow(handle, 500, AW_BLEND or AW_HIDE);
end;

Помогите с чемто новым и интересным пожалусто!
За рание блогодарен !!!
С Уважением Volkogriz !!!

[Stilet]

Новое это наверное копать в сторону AlphaSkins и подобных графических раскорячек...

[Volkogriz]

Смысил втом что я хотел-бы анимирывать не сущиствующую форму!
Вот она:

PHP код:

var
  SplashImage: TImage;
  SplashForm: TForm;
  I : Integer;
begin
  SplashForm := TForm.create(nil);
  with SplashForm do
   begin
    BorderStyle := bsNone;
    Position := poScreenCenter;
    // размеры показываемого изображения
    ClientWidth := 405;
    ClientHeight := 310;
   end;
    SplashImage := TImage.Create(SplashForm);
  with SplashImage do
    begin
SplashImage.Picture.LoadFromFile('splash.bmp');
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;
  with SplashForm do
   begin
     Show;
     for I := 1 to 1 do
      begin
       Repaint;
        // паказ изоброжения в секундах (1000 – одна секунда, 2000 – две секунды и т.д.)
       Sleep(5000);
      end;
     Close;
     Free;
   end; 


И кстати у меня не получается здесь объявить обработчик OnShow как это зделать?
За рание Блогодарен!!!
С уважением Volkogriz!!!

[Domovoy]

Примерно так SplashForm.OnShow:=[и тут ты указываешь имя процедурки]

[Volkogriz]

Сообщение от Domovoy

Примерно так SplashForm.OnShow:=[и тут ты указываешь имя процедурки]

Получилось!!!
Спасибо!

[Stanislav]

А я могу компонентом поделиться там семь видов анимации если нужно отпишись....