Form.Update n'update rien ou il y a un bug dans mon code ou autre chose

Bonjour,

je deviens fou : je crée des objets dynamiquement (des TPanels contenus dans un TPanel sur la fiche, et contenant 1 TImage et 1 TLabel chacun), donc logiquement je devrais faire le ménage avant clôture, sauf que
- que je passe par FormClose, un autre appel par FormKeyDown ou un bouton, le ménage n'est pas fait, enfin, c'est ce que je devine en voyant le symbole à gauche, qui devient vert-valide juste après F9 ;
Pièce jointe 604671

- en pas-à-pas je n'entre jamais dans les lignes du ménage, malgré les ShowMessage qui s'affichent :
Pièce jointe 604670

- plus curieux, si je n'exécute pas ce nettoyage il n'y a pas de fuite mémoire. Il n'y aurait donc pas besoin de faire le ménage ?

- et pourquoi je ne me prends pas d'erreurs dans cette procédure, en cliquant plusieurs fois sur le bouton ? :

Après 25 ans de Delphi et Lazarus, j'avoue que je suis un peu perdu, là.

Merci et bon aprème,

Bonjour,

Je n'ai pas fait l'essai (il manque un peu de code:D)

Citation:

---

- plus curieux, si je n'exécute pas ce nettoyage il n'y a pas de fuite mémoire. Il n'y aurait donc pas besoin de faire le ménage ?

---

Parce que le owner ou le parent (je ne sais plus) fait automatiquement le ménage à la fermeture.
Et du coup, il se peut (à vérifier) que componentCount soit du coup à zéro.

Cordialement

Citation:

---

Envoyé par acaumes

Parce que le owner ou le parent (je ne sais plus) fait automatiquement le ménage à la fermeture.
Et du coup, il se peut (à vérifier) que ComponentCount soit du coup à zéro.

---

Bien vu !
:ccool:
+ 1 !
Vérifié ainsi :

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin showmessage('test'); showmessage('componentCount : '+inttostr(ComponentCount)); for i := 0 to ComponentCount-1 do ...

---

Le résultat donne 4 : 2 TButton's, 1 TEdit et 1 TPanel qui sert de container aux TPanels et TLabels créés dynamiquement et qui ne sont donc pas pris en compte, lol !

Il m'aura suffi de rajouter pnlContainer. à ComponentCount et d'inverser l'ordre de destruction pour que cette partie baigne dans l'huile :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin showmessage('pnlContainer.componentCount : '+inttostr(pnlContainer.ComponentCount)); // d'abord détruire les TLabels -- après tests, ce n'est pas nécessaire : contenus dans les TPanels, ils sont détruits à la destruction des TPanels {for i := pnlContainer.ComponentCount-1 downto 0 do   if (pnlContainer.Components[i] is TLabel) then begin   TLabel(pnlContainer.Components[i] as TLabel).Free;   end; } // puis les TPanels for i := pnlContainer.ComponentCount-1 downto 0 do if (pnlContainer.Components[i] is TPanel) then if Copy((pnlContainer.Components[i] as TPanel).Name, 1, 7) = 'pnl4img' then begin TPanel(pnlContainer.Components[i] as TPanel).Free; end; Form1.Update; end;

---

Il me reste la non-entrée en mode pas-à-pas sur les bras. Pour en avoir le cœur net, je rajoute un Button2 et juste ça :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button2Click(Sender: TObject); var i: integer; begin for i := 0 to 2 do begin // F5 sur cette ligne ShowMessage(inttostr(i)); Edit1.Text:=inttostr(i); end; end;

---

et au clic sur le bouton je n'entre pas en débogage ! Pourtant, toutes les options du projet sont correctes de ce côté-là. Je dois en louper une, mais laquelle ?

Bonjour,

je clique :resolu: malgré l'entrée en débogage qui ne fonctionne toujours pas, mais comme ce n'est pas le titre de la discussion, au besoin j'en ouvrirai une dédiée à ce problème.
EDIT : je l'avais complètement oubliée, mais c'est encore cette vieille histoire d'un paramètre qu'il faut basculer à True dans Menu Outils / Options... / Débogueur / Général / DisableLoadSymbolsForLibraries.
Me souviens jamais si ça change tout seul ou si c'est autre chose.
/EDIT

Mais pour l'heure j'ai un autre souci pas piqué des vers…

Salut pourquoi ne pas utiliser l'évènement OnCloseQuery de la form pour faire le ménage juste avant la fermeture de ta fiche ?

Salut,

Citation:

---

Envoyé par BeanzMaster

Salut pourquoi ne pas utiliser l'évènement OnCloseQuery de la form pour faire le ménage juste avant la fermeture de ta fiche ?

---

Parce que ça n'aurait pas changé le nettoyage des objets qui ont besoin d'être nettoyés.
:coucou:

Hello

Citation:

---

Envoyé par Jipété

Salut,



Parce que ça n'aurait pas changé le nettoyage des objets qui ont besoin d'être nettoyés.
:coucou:

---

Je ne comprend pas pourquoi ? Car le onCloseQuery intervient avant la fermeture de te fenêtre ou application. Tu peux en dire plus ?
Sinon pour l'application tu as l'évènement onDestroy aussi. Qui lui intervient après la fermeture de ta fenêtre.

A+
Jérôme

Yep !

Citation:

---

Envoyé par BeanzMaster

Je ne comprend pas pourquoi ? Car le onCloseQuery intervient avant la fermeture de te fenêtre ou application. Tu peux en dire plus ?
Sinon pour l'application tu as l'évènement onDestroy aussi. Qui lui intervient après la fermeture de ta fenêtre.

---

Bah, mon application est suffisamment simple pour que je n'aie pas à me prendre la tête avec plein d'options de tous les côtés, qui vont m'embrouiller la tête.
Comme on dit sous Linux, K.I.S.S. ! 8-)

En d'autres termes, je crée des objets dans FormCreate, je les libère dans FormClose et basta ! Sauf pour les enfants, petits-enfants et plus bas encore de certains objets qui, eux, seront libérés par la libération de leur ancêtre.

Et à ce jour ça fonctionne bien.