Скачать: CL | DM;

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

← →
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?

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

---

← →
Smithson ©   (2003-01-24 11:34) [4]

ShowModal же. Нет?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c