Réponse acceptée !
... Perseverare Diabolicum
et je rajouterais de la même manière, pour les objets qui doivent rester disponibles tout au long de l'exécution de l'application, quand vous déclarez un où plusieurs objets dans le OnCreate de la Form d'écrire de suite leurs libérations dans le OnClose :
Procedure TForm1.FormCreate(Sender : TObject);
Begin Bmp1 : TBitmap.Create;
Bmp2 : TBitmap.Create;
End;
Procedure TForm1.FormClose(Sender : TObject);
Begin Bmp1.Free;
Bmp2.Free;
End;
Il existe aussi la possibilité de faire savoir au composant que l'on vient de créer qu'il doit se libérer quand la fiche (où le composant parent) est libéré :
Procedure TForm1.FormCreate(Sender : TObject);
Begin Bmp1 : TBitmap.Create;
Bmp1.FreeNotification(Self);
// Self étant ici Form1 Bmp2 : TBitmap.Create;
Bmp2.FreeNotification(Self);
End;
@+
Cirec