Работа с формами

[Claster]

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

[FaTaL]

Функция AnimateWindow дает Вам возможность производить специальные эффекты при показе или сокрытии окон. Имеются четыре типа мультипликации: ролик, слайд, свертывание или развертывание и плавное альфа-перетекание.
Синтаксис

function AnimateWindow(hwnd: HWND, dwTime: DWord, dwFlags: DWord);

Параметры

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

Возвращаемые значения

Если функция завершается успешно, величина возвращаемого значения - не ноль. Если функция завершается с ошибкой, величина возвращаемого значения - ноль. Функция завершится ошибкой в нижеследующих ситуациях: Если окно использует регион окна. Windows XP: Это обстоятельство не заставляет функцию завершаться ошибкой. Если окно уже видимое, и Вы пробуете выводить на экран окно. Если окно уже скрытое, и Вы пробуете скрыть окно. Если нет заданного направления прокрутки для слайда или ролика. При попытке анимировать дочернее окно с флажком AW_BLEND. Если поток не владеет окном. Обратите внимание! что, в этом случае функция AnimateWindow завершается ошибкой, а GetLastError возвращает значение ERROR_SUCCESS. Чтобы получать расширенные данные об ошибках, вызовите функцию GetLastError.

Замечания

При использовании слайда или прокрутки мультипликации, Вы должны задать направление. Это может быть или AW_HOR_POSITIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE, или AW_VER_NEGATIVE. Вы можете комбинировать флажки AW_HOR_POSITIVE или AW_HOR_NEGATIVE с AW_VER_POSITIVE или AW_VER_NEGATIVE, чтобы анимировать окно по диагонали. Оконные процедуры для окна и его дочерних окон должны обрабатывать любое сообщение WM_PRINT или WM_PRINTCLIENT. Диалоговые окна, органы управления и стандартные органы управления уже обрабатывают WM_PRINTCLIENT. Заданная по умолчанию оконная процедура уже обрабатывает WM_PRINT. Если дочернее окно отображается частично отсеченным, когда оно анимируется, то будет иметь дырки, где оно отсечено. AnimateWindow поддерживает окна RTL. Избегайте анимировать окно, которое имеет тень, потому что оно производит видимое спонтанное дерганье мультипликации.

Вот примерчики:

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;

[Claster]

спасибо огромное

[dimonbest]

А как задать чтобы начальное появление формы (начало анимации) происходило по центру экрана? При свойстве формы position:=poDesktopcenter анимация происходит в одной части экрана, а потом форма перескакивает в центр.

[Terran]

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

А как задать чтобы начальное появление формы (начало анимации) происходило по центру экрана? При свойстве формы position:=poDesktopcenter анимация происходит в одной части экрана, а потом форма перескакивает в центр.

Можете сделать так:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.Top:=Round((Screen.Height/2)-(Form1.Height/2));
Form1.Left:=Round((Screen.Width/2)-(Form1.Width/2));
AnimateWindow(Handle, 500, AW_CENTER Or AW_SLIDE);
End;

[dimonbest]

Нет, так не работает...

[Terran]

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

Нет, так не работает...

Прошу прощения, перепутал Top и Left местами. Я подправил код, теперь всё работает.

[DeKot]

Может StretchDraw Вам поможет.Скорость изменения заставки меняется в Sleep/

[dimonbest]

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

Прошу прощения, перепутал Top и Left местами. Я подправил код, теперь всё работает.

Еще ворос: после анимации форма становится неактивной.
Как сделать так чтоб она стала активной? Попробывал так, не помогает...

procedure TForm1.FormShow(Sender: TObject);
begin
Form1.top:=Round((Screen.Height/2)-(Form1.Height/2));
Form1.left:=Round((Screen.Width/2)-(Form1.Width/2));
AnimateWindow(Handle, 900, AW_CENTER Or AW_SLIDE);
form1.Activate;
end;

[Terran]

Как сделать так чтоб она стала активной?

Form1.SetFocus;