Выдвижная панель

[Патрон]

Помгите пожалуйста! Как сделать выдвижную панель по нажатии кнопки "Настройки"? Как в трейнере на GTA San Andreas. Очень надо.

PS. В трейнере нажмите на "Инфо", и вправом нижнем углу есть надпись "Настройки", нажмите на нее и появится выдвижная панель.

[prizrak1390]

По моему там просто увеличивают форму в ширине.
В таймер пропиши это
timer1.interval:=100;
Form1.height:=form1.height+1;

[Патрон]

prizrak1390, спасибо. Но это совсем не то(( это просто бесконечное движение панели. А мне надо чтобы панель выдвигалась и задвигалась по нажатии кнопки, и чтобы ширина была такая, какую я дам.

[SERG1980]

А чем вариант призрака1390 не подходит. Просто он показал на примере формы, а ты можешь загнать этот код в обработчик кнопки и вместо формы изменять высоту панели

[Stilet]

Патрон, гдето недавно обсуждалась анимация окон, поиши там примеры есть вполне рабочие.

[pu4koff]

Патрон, а в таймере не судьба проверку поставить?
if (Form1.Width > 200) then Timer1.Enabled := false;
и так же для уменьшения. или мыслить мы не умеем совсем?

[Патрон]

Поиск мне выдает только эту тему.
pu4koff, твой метод неработает, все как было, так и осталось. Такое впечатление что есть этот код что его и нету.

[Stilet]

Тема:Как создать плавно сворачивающийся и раскрывающийся контрол, например панель.

http://programmersforum.ru/showthrea...t=CreateThread

[Патрон]

ВСЕМ ОГРОМНОЕ СПАСИБО! Все работает.

[DeDoK]

по нажатию кнопки пиши этот код:
procedure TForm1.Button1Click(Sender : Tobject);
begin
AnimateWindow(form2.handle, 600, AW_HOR_POSITIVE or AW_SLIDE or AW_ACTIVATE);
Form2.Show
end;

И все форма будет красиво выезжать