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

[SkAndrew]

Добрый день!

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

Всем спасибо!

Я попробывал такой код, но он очень некоррекно разворачивает и сворачивет (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.
Всем спасибо!

[B_N]

Сообщение от SkAndrew

Я попробывал такой код, но он очень некоррекно разворачивает и сворачивет (Panel1.Height = 127, при создании формы устанавливаю Timer1.Enabled := False; Timer1.Interval := 250 или 1000 - эффект все равно очень плохой зрительно!):

Просто прибавлять по пять пикселей - это очень некрасивое решение, скажем так. Если окно будет увеличиваться большими скачками, буквально за 2-4 раза, всё будет намного красивее. Проверьте, не поленитесь.

[SkAndrew]

Спасибо не поленился и попробывал :-)
Все равно такой код работает скачками. Нужен код плавного разворачивания и сворачивания контрола!
Есть еще какие-то мнения на эту тему?
Всем спасибо!

[Stilet]

Ну в принципе ничего нового не скажу, но вот если счелкнуть в этом коде по кнопке она плавно свернется:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure t;
var
  Form1: TForm1;

implementation

{$R *.dfm}
  //********* PROCEDURE**********
  procedure t;
  //const
  Var rd:integer;
  begin
  randomize;
  rd:=(random(4));
  while (Form1.Button1.Width>50)and(Form1.Button1.Height>50) do begin
    Form1.Button1.Width:=Form1.Button1.Width-rd;
    Form1.Button1.Height:=Form1.Button1.Height-rd;
    sleep(10);
  end;
  end;
  //********* END PROCEDURE******* {}


procedure TForm1.Button1Click(Sender: TObject);
var ti:cardinal;
begin
CreateThread(nil,0,@t,0,CREATE_NEW,ti);
end;

end.

Плавность вроде путевая.

[Романнн]

вот такая штука(только на примере формы)
получается эффект торможения к конечной точке:
form4.Top:=form4.Top-form4.Top div 10;
это всё в таймер.....и скорость торможения зависит от числа после div.
да...и желательно поставить условие типа если форм.топ < 15(например), то форм.топ:=0;

[SkAndrew]

Stilet - спасибо за пример, но он не компилируется. Ошибки в строке:
CreateThread(nil,0,@t,0,CREATE_NEW, ti);
Что здесь не так?
Спасибо!

[Stilet]

Опа. еще один счастливый обладатель немого компилятора. )

[SkAndrew]

Извините, в каком плане "рнемого компилятора". Ошибка: E2036 Variable required на строке функции в процедуре кнопки. Спасибо.

[Stilet]

Вот другое дело.
хм... На Д6 все путем... Какая Делфа?

[SkAndrew]

Ошибка на codegear rad studio delphi 2007 for win32.
Нашел вот такой вариат, но он ничего не хочет делать с панелью.
Спасибо

Извините пример такой:
AnimateWindow(Panel1.Handle, 200, AW_VER_POSITIVE or AW_HOR_POSITIVE);
Спасибо.