Sujet Précédent Sujet Suivant

AJOUT COMPOSANT VISUEL DANS UN TSTATUSBAR

cs_chtom Messages postés 5 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 27 décembre 2002 - 27 déc. 2002 à 15:51
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 28 déc. 2002 à 12:30

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/11777-ajout-composant-visuel-dans-un-tstatusbar

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
28 déc. 2002 à 12:30

NB : ce code a été écrit avec Delphi 4 qui ne disposait pas de la procédure FreeAndNil (apparue avec Delphi 5).

cs_chtom Messages postés 5 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 27 décembre 2002
27 déc. 2002 à 15:51

Code source pas trés "propre"

//Création à l'éxécution
PB := TProgressBar.Create(Self);
With PB do
begin
(...)
Free;
sb := nil;
end

Mieux vaut ecrire

//Création à l'éxécution
PB := TProgressBar.Create(Self);
With PB do
try
finally
FreeAndNil(PB);
end

Discussions similaires

VBA pour ouvrir BO

800A01AD - Un composant activex ne peut pas créer un objet

Le composant Active X ne peut créer l'objet

Un composant ActiveX ne peut créer un objet GetObject

Diagramme de Gantt

Votre réponse

Discussions similaires