Свойства Components и ComponentCount поясните

[саша40]

Всем привет. Я знаю, что есть такие два свойства. Свойство Components - это массив компонентов, в котором находятся все компоненты на форме. Cвойство ComponentCount показывает количество этих компонентов.
У меня есть динамически созданная форма или созданная в режиме проектирования. На неё нужно как-то динамически добавлять компоненты, не объявляя их при описание класса формы. Может ли помочь изменение двух этих свойств? Если да, то как? Если нет, то в какую сторону копануть.

[Stilet]

Используй метод формы: InsertComponent() для добавления компонентов динамически.

[Vapaamies]

Тупо создавать компоненты, передавая форму в качестве Owner в конструкторе Create.

[саша40]

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

Используй метод формы: InsertComponent() для добавления компонентов динамически.

Спасибо, попробую.

[саша40]

Поискал документацию и тут нашел, что у неё всего один параметр типа TComponent. Проблема: Как её использовать?
Ведь компоненты могут иметь разные типы, имена, свойства и т.п.

[alextrof94]

Создаешь компонент типа

 var b : TButton;
begin
 b := TButton.Create(Form1);
 b.Parent := Form1;
 b.Другое_Нужное_Свойство_Типа_Высоты_Длины_И_Действия := Значение.
end;

[саша40]

А если тип любой(не важно какого вида)? Как быть?

[саша40]

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

Создаешь компонент типа

 var b : TButton;
begin
 b := TButton.Create(Form1);
 b.Parent := Form1;
 b.Другое_Нужное_Свойство_Типа_Высоты_Длины_И_Действия := Значение.
end;

Сказано же: Без объявления!

[Stilet]

А если тип любой(не важно какого вида)?

Приводить типы к TComponent придется.

[саша40]

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

Приводить типы к TComponent придется.

Да уже сделал.
Вот код:

function TMyMessages.AddMessageFormComponent(AComponent: TComponent): Boolean;
begin
Result:=false;
if FMessageForm.FindComponent(GetClassName(AComponent)) <> 0 then exit;
FMessageForm.InsertComponent(AComponent);
AComponent.SetParentComponent(FMessageForm);
Result:=True;
end;

Уничтожение:

function TMyMessages.DestroyComponent(ComponentName: String): Boolean;
begin
Result:=false;
if FMessageForm.FindComponent(ComponentName)<>0 then
begin
FreeAndNil(FMessageForm.FindComponent(ComponentName));
Result:=True;
end;
end;

И даже изменения свойства(по указателю):

procedure TMyMessages.SetPropertyComponent(AProperty: Pointer;
  AType: TypeIdentifier; AValue: String);
begin
AProperty^:=AType(AValue);
end;

FMessageForm - это моя форма.