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

[mihali4]

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

mutabor - я имено так и делал, но выдается ранее описанная ошибка. если не сложно приведеитпе пример, чтобы визуально можно было понять ошибку. Спасибо

Ну посмотрите у себя в тексте, как объявляется процедура, например:
procedure TForm1.Button1Click(Sender: TObject);
и сделайте по аналогии...

[SkAndrew]

спасибо, я уже так делал, но так не получается

[mihali4]

Вы уже довольно долго говорите загадками.
Может, приведете, наконец, свой вариант кода с объявлением процедуры, который у вас не работает?
Или так и будем гадать на кофейной гуще?

[alexBlack]

Как я понял вот уже 2 страницы речь о том чтобы поместить

procedure t;

в объявление класса.
В данном случае этого делать нельзя, т.к. она используется в:

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

а вызов процедуры и вызов метода - это разные вещи.
Зачем вообще объявлять ее в интерфейстной части ? Удалите и все.

И поменяйте объявление процедуры. Должно быть

function t(lpThreadParameter: Pointer): Integer stdcall;

[SkAndrew]

Спасибо за ответ, но если записать так, то функция не работает:
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

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

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

Как изменить код, чтобы он работал? Спасибо!

[Stilet]

SkAndrew

Чесно признайся ты мой код внимательно читал?

[SkAndrew]

да читал, но была подсказка недавняя (смотри выше) и попробовал изменить код, а он не работает, вот и попросил автора alexBlack поправить его.
А Вы, если не сложно, подскажите как реализовать обратную функцию - разворачивания. Спасибо.

[Stilet]

Вот в том моем примере поменять на:

 while (Form1.Button1.Width<200)and(Form1.Button1.Height<200) do begin   
    Form1.Button1.Width:=Form1.Button1.Width+rd;   
    Form1.Button1.Height:=Form1.Button1.Height+rd;   
    sleep(10);   
  end;

Ферштеен?

[SkAndrew]

Спасибо за подсказку.
Был бы очень благодарен alexBlack за подсказку как правильно записать функцию, о которой он писал. Спасибо

[alexBlack]

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

Спасибо за подсказку.
Был бы очень благодарен alexBlack за подсказку как правильно записать функцию, о которой он писал. Спасибо

Речь шла только об объявлении функции. Сам параметр в функции использовать не нужно.

т.е вместо

procedure t;

--

function t(lpThreadParameter: Pointer): Integer stdcall;

Еще раз повторю. Это касается не алгоритма работы функции, а следует из описания функции CreateThread.