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

[SkAndrew]

компилятор указывает на ошибку второго параметра (панели), а почему? пишет:
[DCC Error] Unit1.pas(59): E2036 Variable required
как это можно исправить?

[Stilet]

А потому что нельзя писать так. Ты почитай внимательно все предидущие описания CreateThread.
CreateThread(nil, 0, Тут нужен указатель на функцию а не вызов ее, nil, CREATE_NEW, ti);

[SkAndrew]

значит нельзя в функции использовать более общий параметр типа Control : TControl? Или все же есть какой-то выход? Спасибо?

[B_N]

SkAndrew, методы класса всегда включают неявный параметер - указатель на объект, для которого они вызваны.
Скажем вызов метода, определенного как

Tclass1 = class
	//.............
	procedure proc1(i : integer);
	//.............
end;

для переменной var1 : TClass1 будет записан так

var1.proc1(100);

но фактически (незаметно для разработчика) будет вызван как

proc1(@var1, 100);

Именно в неявной передаче в метод указателя self и кроется, как правило невозможность включать многие функции WinAPI в класс, иначе как статические методы - вызываемые без self. Но в ряде случаев, наоборот, существует трюк, как, например с функцией потока. В неё передаётся всего один параметр - адрес произвольной переменной, с которой она сама знает как разобраться, поэтому её, в качестве исключения, можно "привязать" к классу но не указывать в определении никаких параметров, а при создании потока (через CreateThread) указать в качестве параметра потока указатель self. Тогда ОС вызовет эту функцию так, как она считает нужным - передав параметр lpParam, а внутри функции он "превратится" в указатель self на объект класса.

[SkAndrew]

спасибо за разъяснение, но я так и не понял можно использовать более общий параметр типа Control : TControl в функции или нет и как тогда указать, что этот параметр может быть панелью или каким-либо другим контролом?

[B_N]

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

спасибо за разъяснение, но я так и не понял можно использовать более общий параметр типа Control : TControl в функции или нет и как тогда указать, что этот параметр может быть панелью или каким-либо другим контролом?

А этого:

поэтому её, в качестве исключения, можно "привязать" к классу

недостаточно? И не забывайте про потоковую небезопасность VCL.

[SkAndrew]

ну вот в этом то и мое желание разобраться - как именно привязать, можете привести пример и как и как предотвратить потоковую небезопасность МСД? Спасибо!

[B_N]

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

ну вот в этом то и мое желание разобраться - как именно привязать,

Что значит "как"? Описать метод класса.

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

и как предотвратить потоковую небезопасность МСД? Спасибо!

EnterCriticalSection, LeaveCriticalSection. А вообще, насколько я помню, на эту тему была статья в справке по дельфи.

[SkAndrew]

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

[SkAndrew]

Написал так:

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

var
Form1: TForm1;
IsMin: boolean;
lpThreadParameter : Pointer;

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.Height + rd > 2) and (Control.Height + rd < 338) do
begin
Control.Height := Control.Height + rd;
Sleep(10);
end;
IsMin := not IsMin;
Result := 0;
end;

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

все равно компилятор выдает ошибку, что неверно указан параметр "Control". Подскажите как нужно прописать в CreateThread функцию t, чтобы данный код нормально компилировался. Спасибо!