Анимация при показе окна

← →
Sergei (2003-01-23 23:31) [0]

Добрый вечер уважаемые мастера
У меня такой вопрос
Как к примеру создать такой эффект
когда при показе окна оно либо собирается по кускам либо разворачивается по часовой стрелке (к примеру программа autorun в AlexSoft) и что удивительно отсутсвует мерцание и т. п негативы

Подскажите пожалуйста либо ссылку с примером source

Спасибо

← →
Бук (2003-01-24 06:52) [1]

Насче анимации как у AlexSoft ничего не скажу, но насчет анимации окна, пожалста:
procedure TForm1.Button1Click(Sender: TObject); begin Form2.BringToFront; AnimateWindow(Form2.Handle, 3000, AW_BLEND); Form2.Show; { Параметр 1: Handle открываемой формы Параметр 2: Время открывания в мс. Параметр 3: может быть один или несколько (их надо плюсом соеденить) из следующих AW_BLEND : fade эффект AW_SLIDE : slide-анимация AW_ACTIVATE : Активировать окно AW_HIDE : Закрыть окно AW_CENTER : Открыть окно из центра AW_HOR_POSITIVE : Слева направо AW_HOR_NEGATIVE : справа налево AW_VER_POSITIVE : Сверху вниз AW_VER_NEGATIVE : снизу вверх } end;
Вот собственно и все

← →
Explorer © (2003-01-24 10:15) [2]

>Бук

Подскажите, а почему после анимации, окно не реагирует еа нажатии кнопок мышии и на перемещение окна, а только на Enter?

Вот мой код:

Application.CreateForm(TFormAbout, FormAbout);
FormAbout.BringToFront;
AnimateWindow(FormAbout.Handle, 3000, AW_HOR_POSITIVE);
FormAbout.ShowModal;
FormAbout.Free;

← →
Бук (2003-01-24 11:31) [3]

>Explorer
>Подскажите, а почему после анимации, окно не реагирует еа >нажатии кнопок мышии и на перемещение окна, а только на Enter?

У меня не наблюдалось ничего подобного. И спасибо за замечание. Учту в будущем :)

ShowModal же. Нет?

Анимация при показе окна Найти похожие ветки