Eigenschaften einer Komponente

[MaBuSE]

Zitat von Surrounder:

ich kann das nicht glauben, gibt es denn keine Möglichkeit alle Properties die eine Komponente hat mittels eines Befehls zu kopieren und einer anderen Komponente zuzuweisen?

Den Inhalt der StringGrids kannst Du wenigstens Reihen- oder Spaltenweise mit Assign übertragen:
(Rows und Cols sind vom Typ TStrings. TStrings kann mit Assign umgehen)

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  sg: TStringGrid;
  i: Integer;
begin
  // StringGrid1 mit Zahlen füllen
  for i := 0 to StringGrid1.RowCount * StringGrid1.ColCount do
  begin
    StringGrid1.Cells[i mod StringGrid1.ColCount, i div StringGrid1.ColCount] := IntToStr(i);
  end;

  // StringGrid1 nach sg kopieren
  sg := TStringGrid.Create(Form1);
  sg.Parent := Form1;
  sg.RowCount := StringGrid1.RowCount;
  sg.ColCount := StringGrid1.ColCount;
  for i := 0 to sg.RowCount do sg.Rows[i].Assign(StringGrid1.Rows[i]);
  // oder
  // for i := 0 to sg.ColCount do sg.Cols[i].Assign(StringGrid1.Cols[i]);
end;