Freigabe von Objekten in Objekten

[DeddyH]

Du musst auch den Parent für das Objekt2 setzen.

Delphi-Quellcode:

constructor TObjekt1.Create(AOwner: TComponent; Anders : byte);
begin
  inherited Create(AOwner);
  Parent := AOwner as TWinControl;
  case Anders of 

    ...

    2:
      begin
        Objekt2 := TObjekt2.Create(Self);  //////////////////////
        Objekt2.Parent := AOwner as TWinControl;
        ...

[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;

[DeddyH]

Ist der Speicherfehler denn jetzt auch behoben, oder hast Du nur das Free im Destruktor rausgeworfen und bekommst nun Memoryleaks?

[Ginko]

Nein ich habe das Objekt2.Free nicht rausgeworfen und der Speicherfehler ist weg.
Es lag scheinbar nur daran, dass ich den Parent jedesmal extra angeben muss. Warum ist mir aber nicht wirklich klar ....

[DeddyH]

Ööhhmm... hö Aber egal, wenn es jetzt funktioniert, ist ja alles gut