Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.464 Beiträge
 
Delphi 12 Athens
 
#14

AW: Mehrere TImages mit einer Procedure erstellen

  Alt 11. Okt 2016, 11:30
Konstruktoren und Destruktoren sollte man in der Regel überschreiben, nicht neu definieren.
Sonst werden diese nicht aufgerufen.
Dabei auch den richtigen Konstruktor überschreiben und das inherited nicht vergessen.
Delphi-Quellcode:
TForm1 = class(TForm) // bestehend
.
.
private
  MeineObjectList := TObjectList<TBild>; // die Instanz der Liste
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;

constructor Create(AOwner: TComponent);
begin
  inherited;
  MeineObjectList := TObjectList<TBild>.Create(True);
end;

destructor Destroy;
begin
  MeineObjectList.Free;
  inherited;
end;
  Mit Zitat antworten Zitat