Freigabe von Objekten in Objekten

[Ginko]

Danke das war es Der überaus bösartige Parent war wirklich schuld....

So klapptes:

Delphi-Quellcode:

constructor TObjekt1.Create(AOwner: TComponent; Anders : byte);
begin
  inherited Create(AOwner);
  case Anders of
    1:
      begin
        Parent := AOwner as TWinControl;////////////////
        Left := 450;
        Top := 150;
        DefaultColWidth := 30;
        DefaultRowHeight := 30;
        FixedCols   := 0;
        FixedRows   := 0;
        BorderStyle := bsSingle;
        ColCount    := 8;
        RowCount    := 1;
        Width := 253;
        Height := 32;
      end;

    2:
      begin
        Objekt2 := TObjekt2.Create(AOwner);
        Parent := AOwner as TWinControl;     ////////////////////!!!
        Objekt2.Top := 200;
        Left := 450;
        Top := 200;
        DefaultColWidth := 30;
        DefaultRowHeight := 30;
        FixedCols   := 0;
        FixedRows   := 0;
        BorderStyle := bsSingle;
        ColCount    := 8;
        RowCount    := 1;
        Width := 253;
        Height := 32;
      end;
  end;
end;