Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как создать плавно сворачивающийся и раскрывающийся контрол? [D7, WinXP]

Страницы: < 1 2
Dr.Andrew © (2008-04-10 00:21:00)
Я попробывал такой код, но он очень некоррекно разворачивает и сворачивет (Panel1.Height = 127, при создании формы устанавливаю Timer1.Enabled := False; Timer1.Interval := 250 или 1000 - эффект все равно очень плохой зрительно!):

procedure TForm1.Buttom1Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Button1.ImageIndex = 7 then
begin
Panel1.Height := Panel1.Height + 5;
if Panel1.Height > 127 then
Timer1.Enabled := False;
end
else
begin
Panel1.Height := Panel1.Height - 5;
if Panel1.Height < 1 then
Timer1.Enabled := False;
end;
end;

Подскажите, пожалуйста, лучшее решение может через WinAPI.
Всем спасибо!

Loginov Dmitry (2008-04-10 07:59:00) [21]
> Timer1.Interval := 250 или 1000 - эффект все равно очень
> плохой зрительно

поменьше интервалы не пробовал?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »