Есть ли возможность копирования свойств компонента?

[Прик]

К примеру, на форме в дизайнтайме размешается StringGrid и много времени уходит на настройку его свойств и вида.
Тут же на форме нужно разместить еще несколько точно таких же компонентов.
Можно, конечно, накопировать их и в дизайнтайме, но если бы была возможность на вновь созданный компонент в рантайме скоприровать все свойства с уже отлаженного компонента, то можно было бы их рассовать по форме в цикле с меньшими трудозатратами.
Т.е., не может ли существовать аналог дизайнтаймовского Ctrl+C -> Ctrl+V?

Речь о D 2010.

[Прик]

Это понятно, общее место.
Но вопрос был в другом: нет ли такой же возможность в run-time?

[Аватар]

Можно попробовать используя Clipboard

procedure TForm1.Button1Click(Sender: TObject);
var xGrid: TStringGrid;
begin
  Clipboard.SetComponent(StringGrid1);
  StringGrid1.Name:='NewNameStringGrid';
  xGrid:=TStringGrid(Clipboard.GetComponent(Self,Self));
  xGrid.Top:=0;
  xGrid.Left:=0;
end;

initialization

RegisterClasses([TStringGrid]);

end.

[Прик]

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

[grominfo]

Создай свой класс, в котором будет создаваться нужный тебе компонент с заданными свойствами, и создавай его в run-time хоть миллион раз

Видимо, нет такой фичи. Во всяком случае, до сих пор слышно не было.

Тебе какая фича нужна? Добавил одну строчку кода и программа написана?

[Прик]

Аватар, идейка классная. Работает. Минимум писанины. Спасибо. Сам не дотумкал. Практически, один-в-один как и в дизайнтайме.
События, правда, не копируются, но это уже мелочь (а может я кривыми ручками чего-то не так сделал, но не копирует).
Некоторая странность: класс компонента надо зарегистрировать, иначе ошибка: при копировании обратно на форму не находится класс TStringGrid (казалось бы штатный компонент, но тем не менее).

...
initialization
  RegisterClasses([TStringGrid]);
end.

[Человек_Борща]

Видимо, нет такой фичи. Во всяком случае, до сих пор слышно не было.

С чего бы это нету?
В GExperts уже очень давно такое есть, и называется "Components to code".
Вот сейчас, я залпом, из disign-time, скопировал весь TVirtualStringTree c формы, в код.

var
  Tree: TVirtualStringTree;

  Tree := TVirtualStringTree.Create(Self);

  with Tree do
  begin
    Name := 'Tree';
    Parent := Self;
    Left := 0;
    Top := 30;
    Width := 824;
    Height := 358;
    Align := alClient;
    BorderWidth := 1;
    Images := TreePics;
    PopupMenu := TreePopup;
    TabOrder := 1;
    OnChange := TreeChange;
    OnFreeNode := TreeFreeNode;
    OnGetText := TreeGetText;
    OnPaintText := TreePaintText;
    OnGetImageIndex := TreeGetImageIndex;
    OnGetNodeDataSize := TreeGetNodeDataSize;
    OnNodeClick := TreeNodeClick;
    OnNodeDblClick := TreeNodeDblClick;
    with Columns.Add do begin 
      Options := [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coVisible, coUseCaptionAlignment];
      Position := 0;
      Width := 298;
      WideText := 'User name';
    end;
    with Columns.Add do begin 
      Options := [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coVisible, coUseCaptionAlignment];
      Position := 1;
      Width := 120;
      WideText := 'Password';
    end;
    with Columns.Add do begin 
      Options := [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coVisible, coUseCaptionAlignment];
      Position := 2;
      Width := 100;
      WideText := 'Access time';
    end;
    with Columns.Add do begin 
      Options := [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coVisible, coUseCaptionAlignment];
      Position := 3;
      Width := 100;
      WideText := 'Time left';
    end;
    with Columns.Add do begin 
      Options := [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coVisible, coUseCaptionAlignment];
      Position := 4;
      Width := 100;
      WideText := 'Total time left';
    end;
    with Columns.Add do begin 
      Options := [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coVisible, coUseCaptionAlignment];
      Position := 5;
      Width := 100;
      WideText := 'Profile';
    end;
  end;

Осталось подправить под нужды и убрать лишнее. Все.
Очень экономит время.

[evg_m]

Assign method (TPersistent)

Copies the contents of another, similar object.

procedure Assign(Source: TPersistent); virtual;

Call Assign to copy the properties or other attributes of one object from another. The standard form of a call to Assign is

[Прик]

Этот способ я испытал самым первым.
Происходит ошибка (во всяком случае, у меня) типа: "невозможно копировать TStringGrid в TStringGrid".
Поэтому и искал альтернативу.

[Аватар]

Assign далеко не для всех работает. Разве что самому его переопределить