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

[SkAndrew]

Спасибо alexBlack, но если записать вот так:

function t(lpThreadParameter : Pointer): Integer stdcall;
var rd : Integer;
begin
Randomize;
rd := Random(4);
with Form1 do
while (Panel1.Width > 50) and (Panel1.Height > 50) do
begin
Panel1.Height := Panel1.Height - rd;
Panel1.Width := Panel1.Width - rd;
Sleep(10);
end;
end;

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

то функция компилируется, но после нажатия кнопки ничего не происходи и более того после закрытия формы компилчтор выдает ошибку неверного чтения какого-то адреса.
Что не так?
Спасибо.

[mutabor]

SkAndrew, вернись на первую страницу в пост #4, строка 18. Понял что не так?

[Stilet]

Даж не знаю... Вообще я лично прекрасно обходился без параметров в этой функе. Ну попробуй прописать result:=0 в конце функи потока. Где то в стек попадает левый адрес помоему.
И еще попробуй убрать из потока все обращения к компонентам и форме, если ошибка при закрытии исчезнет, значит в потоке нужно проверять не уничтожены ли компоненты.

э-э-э стоп, а ты что функу в класс формы включил?

[SkAndrew]

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

[mutabor]

Проверил, работает.

...
function t(lpThreadParameter : Pointer): Integer stdcall;

implementation

{$R *.DFM}

function t(lpThreadParameter : Pointer): Integer stdcall;
var rd : Integer;
begin
Randomize;
rd := Random(4);
with Form1 do
while (Panel1.Width > 50) and (Panel1.Height > 50) do
begin
Panel1.Height := Panel1.Height - rd;
Panel1.Width := Panel1.Width - rd;
Sleep(10);
end;
end;

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

А это с моими дополнениями - добавил разворачивание и Random убрал (не очень понятно зачем его там вообще применили).
Разворачивание все той же кнопкой, начальные размеры панели должны быть меньше чем 300 х 300, если превышают поменяй либо размеры панели, либо цифры в условии, так чтобы разница хотя бы в единицу была.

...
var
  IsMin: boolean;

function t(lpThreadParameter : Pointer): Integer stdcall;

implementation

{$R *.DFM}

function t(lpThreadParameter : Pointer): Integer stdcall;
var
rd: integer;
begin
if IsMin then rd := 2 else rd := -2;
with Form1 do
  while (Panel1.Width + rd > 50) and (Panel1.Height + rd > 50) and
    (Panel1.Width + rd < 300) and (Panel1.Height + rd < 300) do
    begin
      Panel1.Height := Panel1.Height + rd;
      Panel1.Width := Panel1.Width + rd;
      Sleep(10);
    end;
IsMin := not IsMin;
end;

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

[SkAndrew]

спасибо - работает отлично!

[SkAndrew]

mutabor - А если записать так (это возможно?):

var
Form1: TForm1;
IsMin: boolean;

function t(lpThreadParameter : Pointer; Control : TControl): Integer stdcall;

implementation

{$R *.dfm}

function t(lpThreadParameter : Pointer; Control : TControl): Integer; stdcall;
var
rd: integer;
begin
if IsMin then rd := 2 else rd := -2;
while (Control.Width + rd > 50) and (Control.Height + rd > 2) and
(Control.Width + rd < 600) and (Control.Height + rd < 338) do
begin
Control.Height := Control.Height + rd;
Control.Width := Control.Width + rd;
Sleep(10);
end;
IsMin := not IsMin;
Result := 0;
end;

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

тогда какой должен быть первый параметр в функции t?
Спасибо за ответ!

[Stilet]

CreateThread(nil, 0, @t(??????, ElPanel1), nil, CREATE_NEW, ti);

Ты бы хоть проверил будет ли этот изврат работать.

[SkAndrew]

проверил, не работает. просто хотел несколько упростить функцию mutabor. не могу понять как записать первый параметр функции и ошибку компилятор выдает почему-то на второй параметр. Спасибо.

[Stilet]

Чтоб передать в поток ченить, нужно просто определить переменные, передл запуском потока, и пусть поток их читает.