admin привет!
Плавное открытие и закрытие формы
Автор: admin | Дата: 25-12-2011, 11:28 | Комментариев: 0 | Просмотров: 4 786
Плавное открытие и закрытие формы..
Для достижения этого эффекта необходимо в события формы OnCreate и OnClose добавить следующий код:
Где 1000 - это длительность открытия и закрытия,можно изменить по своему усмотрению.
Пароль на все архивы: hh
Для достижения этого эффекта необходимо в события формы OnCreate и OnClose добавить следующий код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND)
end;
begin
AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Handle, 1000, AW_BLEND)
end;
begin
AnimateWindow(Handle, 1000, AW_BLEND)
end;
Где 1000 - это длительность открытия и закрытия,можно изменить по своему усмотрению.
Пароль на все архивы: hh
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
