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