DataGrid ins Datagrid kopieren

[HomerGER]

Hallo

weiß jemand wie man ein DataGrid in ein DataGrid kopiert
datagrid1 := Datagrid2 bringt es nicht so

in meiner Klasse sieht es so aus

Delphi-Quellcode:

function TObjekte.DBGrid() : DataGrid;
var
DBGrid : System.Windows.Forms.DataGrid;
DBGStyle : DataGridTableStyle;
TextBoxCol1 : DataGridTextBoxColumn;
TextBoxCol2 : DataGridTextBoxColumn;
TextBoxCol3 : DataGridTextBoxColumn;
TextBoxCol4 : DataGridTextBoxColumn;
begin
  //Grid erzeugen
  DBGrid := System.Windows.Forms.DataGrid.Create;

  //Alles löschen
  DBGrid.DataSource := NIL;
  DBGrid.DataBindings.Clear;

  //Style1 erzeugen
  DBGStyle := System.Windows.Forms.DataGridTableStyle.Create;
  DBGStyle.MappingName := 'inserad_objekte';
  DBGStyle.RowHeaderWidth := 10;

  //Style1 Farbe
  DBGStyle.AlternatingBackColor := System.Drawing.Color.LightSteelBlue;


  TextBoxCol1 := DataGridTextBoxColumn.Create;
  TextBoxCol1.MappingName := 'ID';
  TextBoxCol1.HeaderText := 'ID';
  TextBoxCol1.Width := 50;

  TextBoxCol2 := DataGridTextBoxColumn.Create;
  TextBoxCol2.MappingName := 'NAME';
  TextBoxCol2.HeaderText := 'NAME';
  TextBoxCol2.Width := 50;

  TextBoxCol3 := DataGridTextBoxColumn.Create;
  TextBoxCol3.MappingName := 'BESCHREIBUNG';
  TextBoxCol3.HeaderText := 'BESCHREIBUNG';
  TextBoxCol3.Width := 50;

  //Zum Style hinzufügen
  DBGStyle.GridColumnStyles.Clear;
  DBGStyle.GridColumnStyles.Add(TextBoxCol1);
  DBGStyle.GridColumnStyles.Add(TextBoxCol2);
  DBGStyle.GridColumnStyles.Add(TextBoxCol3);

  //Style DataGrid übergeben
  DBGrid.TableStyles.Clear;
  DBGrid.TableStyles.Add(DBGStyle);


  DBGrid.DataSource := DataTable;

  Result := DBGrid;
end;

der aufruf
dann Datagrid1 := objekte.DBGrid
führt zu nix

wenn ich es aber direkt eingebe

Delphi-Quellcode:

procedure TObjekteForm.Button6_Click(sender: System.Object; e: System.EventArgs);
var
DBGStyle : DataGridTableStyle;
TextBoxCol1 : DataGridTextBoxColumn;
TextBoxCol2 : DataGridTextBoxColumn;
TextBoxCol3 : DataGridTextBoxColumn;
TextBoxCol4 : DataGridTextBoxColumn;
begin

  //Alles löschen
  DataGrid1.DataSource := NIL;
  DataGrid1.DataBindings.Clear;

  //Style1 erzeugen
  DBGStyle := DataGridTableStyle.Create;
  DBGStyle.MappingName := 'inserad_objekte';
  DBGStyle.RowHeaderWidth := 10;

  //Style1 Farbe
  DBGStyle.AlternatingBackColor := System.Drawing.Color.LightSteelBlue;


  TextBoxCol1 := DataGridTextBoxColumn.Create;
  TextBoxCol1.MappingName := 'ID';
  TextBoxCol1.HeaderText := 'ID';
  TextBoxCol1.Width := 50;

  TextBoxCol2 := DataGridTextBoxColumn.Create;
  TextBoxCol2.MappingName := 'NAME';
  TextBoxCol2.HeaderText := 'NAME';
  TextBoxCol2.Width := 50;

  //Zum Style hinzufügen
  DBGStyle.GridColumnStyles.Clear;
  DBGStyle.GridColumnStyles.Add(TextBoxCol1);
  DBGStyle.GridColumnStyles.Add(TextBoxCol2);

  //Style DataGrid übergeben
  DataGrid1.TableStyles.Clear;
  DataGrid1.TableStyles.Add(DBGStyle);


  DataGrid1.DataSource := Objekte.DataTable;

zeigt er mir alles an




weiß jemand rat?
Homer