|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Плавное расширение формы
Здравствуйте, у меня возникла проблема при создании выезжающей части формы. Я хочу чтобы по нажатии на кнопку форма расширялась и открывались ранее невидимые элементы.Я использую alphaskins и при изменении размеров формы через цикл форма очень притормаживает.
Может есть какой-нибудь способ плавно расширить форму без лагов. пробовал останавливать перерисовку формы. Расширяется она нормально а вот когда заезжает на экране за границами окна остается часть формы. Код:
procedure TForm2.Image2Click(Sender: TObject); begin if image2.Tag<1 then begin image2.Tag:=1; Perform(WM_SETREDRAW, 0, 0); while form2.height<351 do form2.height:=form2.height+5; Perform(WM_SETREDRAW, 1, 0); Refresh; end else begin image2.Tag:=0; Perform(WM_SETREDRAW, 0, 0); while form2.height>231 do form2.height:=form2.height-5; Perform(WM_SETREDRAW, 1, 0); Refresh; end; end; Последний раз редактировалось c3Tpeucep, 22.05.2011 в 13:58. |
#2
|
||||
|
||||
Есть такая процедурка AnimateWindow, она позволяет проделывать с окном разные эффекты подобного типа.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
Посмотрел эту функцию . Она используется для анимированного показа окна. Можно как-нибудь поподробнее как её применить в моем случае.
|