|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.04.2008, 10:55 | #1 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
Выдвижная панель
Помгите пожалуйста! Как сделать выдвижную панель по нажатии кнопки "Настройки"? Как в трейнере на GTA San Andreas. Очень надо.
PS. В трейнере нажмите на "Инфо", и вправом нижнем углу есть надпись "Настройки", нажмите на нее и появится выдвижная панель. Последний раз редактировалось Патрон; 16.04.2008 в 13:48. |
14.04.2008, 11:37 | #2 |
-=PriZraK=-
Форумчанин
Регистрация: 12.12.2007
Сообщений: 399
|
По моему там просто увеличивают форму в ширине.
В таймер пропиши это timer1.interval:=100; Form1.height:=form1.height+1; |
14.04.2008, 11:53 | #3 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
prizrak1390, спасибо. Но это совсем не то(( это просто бесконечное движение панели. А мне надо чтобы панель выдвигалась и задвигалась по нажатии кнопки, и чтобы ширина была такая, какую я дам.
|
14.04.2008, 12:07 | #4 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
А чем вариант призрака1390 не подходит. Просто он показал на примере формы, а ты можешь загнать этот код в обработчик кнопки и вместо формы изменять высоту панели
|
14.04.2008, 12:19 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Патрон, гдето недавно обсуждалась анимация окон, поиши там примеры есть вполне рабочие.
I'm learning to live...
|
14.04.2008, 12:21 | #6 |
Старожил
Регистрация: 22.05.2007
Сообщений: 9,065
|
Патрон, а в таймере не судьба проверку поставить?
if (Form1.Width > 200) then Timer1.Enabled := false; и так же для уменьшения. или мыслить мы не умеем совсем? |
14.04.2008, 12:43 | #7 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
Поиск мне выдает только эту тему.
pu4koff, твой метод неработает, все как было, так и осталось. Такое впечатление что есть этот код что его и нету. |
14.04.2008, 12:46 | #8 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Тема:Как создать плавно сворачивающийся и раскрывающийся контрол, например панель.
http://programmersforum.ru/showthrea...t=CreateThread
I'm learning to live...
|
14.04.2008, 13:27 | #9 |
Форумчанин
Регистрация: 07.03.2008
Сообщений: 151
|
ВСЕМ ОГРОМНОЕ СПАСИБО! Все работает.
|
15.04.2008, 07:57 | #10 |
Форумчанин
Регистрация: 05.11.2007
Сообщений: 392
|
все намного проще:)
по нажатию кнопки пиши этот код:
procedure TForm1.Button1Click(Sender : Tobject); begin AnimateWindow(form2.handle, 600, AW_HOR_POSITIVE or AW_SLIDE or AW_ACTIVATE); Form2.Show end; И все форма будет красиво выезжать |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Панель задач | Черничный | Общие вопросы Delphi | 2 | 18.08.2008 02:28 |
Панель задач | Патрон | Общие вопросы Delphi | 2 | 31.03.2008 22:54 |
Панель задач | M@rsel | Win Api | 3 | 04.07.2007 10:59 |
панель задач | LORD-BY | Win Api | 2 | 04.07.2007 01:47 |
Как создать программу-панель (как панель Msoffice), чтобы была поверх всех окон | Romanbl4 | Общие вопросы Delphi | 6 | 27.06.2007 17:23 |