Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Sergei © (2003-01-23 23:31:00)
Добрый вечер уважаемые мастера
У меня такой вопрос
Как к примеру создать такой эффект
когда при показе окна оно либо собирается по кускам либо разворачивается по часовой стрелке (к примеру программа autorun в AlexSoft) и что удивительно отсутсвует мерцание и т. п негативы

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

Спасибо

Smithson (2003-01-24 11:34:00) [1]
ShowModal же. Нет?

Бук (2003-01-24 11:31:00) [2]
>Explorer
>Подскажите, а почему после анимации, окно не реагирует еа >нажатии кнопок мышии и на перемещение окна, а только на Enter?

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

Explorer (2003-01-24 10:15:00) [3]
>Бук

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

Вот мой код:

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

Бук (2003-01-24 06:52:00) [4]
Насче анимации как у 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;
Вот собственно и все

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »