Свойства динамически созданных объектов.

[Dorithur]

Добрый день. Такая проблема: имеется форма, на ней установлен PageControl. Одна вкладка статическая и 3 создаются динамически. Все вкладки содержат StringGrid. Вопрос: как при динамическом создании этих StringGrid'ов сразу указать им размеры компонента, ширину ячеек и тд такую же, как и у имеющегося стринггрида? Вручную все свойства передавать не хочется, а по-другому - не доходит до меня.

[Wicort]

Может я, конечно, не прав, но всётаки придётся делать это вручную. Если объект создается динамически, то все свойства ему присваиваются по дефолту. Значит, чтобы их изменить, надо прописать это в коде.

[Dorithur]

Это печально Эни азэ айдиас?

[mihali4]

А что тут особо печального?
Пара строк - и вуа-ля...

procedure TForm1.Button1Click(Sender: TObject);
var myts: TStringGrid;
    i: integer;
begin
myts:=TStringGrid.Create(Self);
myts.Parent:=Panel1;
//копируем ширины столбцов
for i:=0 to StringGrid1.ColCount-1 do
myts.ColWidths[i]:=StringGrid1.ColWidths[i];
end;

[Dorithur]

Это понятно, что можно циклом. Но все равно громоздко как-то получается, ведь передаю не только ширину, а еще много чего)
Ладно, сделаю так. Спасибо всем