|
|
 | |  |
| Главная » 2011 » Март » 19 » ПЛАВНОЕ ОТКРЫТИЕ И ЗАКРЫТИЕ ФОРМЫ
21:43 ПЛАВНОЕ ОТКРЫТИЕ И ЗАКРЫТИЕ ФОРМЫ |
Для достижения этого эффекта необходимо в события формы OnCreate и OnClose добавить следующий код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Handle, 1000, AW_BLEND)
end;
Длительность появления (исчезания) формы можно регулировать изменяя значение параметра, следующего за Handle.
|
|
Категория: Delphi |
Просмотров: 512 |
Добавил: SeM
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
