Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизАнимация при показе окна Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.015 c