Modifier un événement dans le code

Code:

---

1 2 3 4 5 6

procedure TFiche.FicheActivate(); begin // traitement onActivate:=nil; end;

---

Voilà un code parfait (dû à Pierre Castelain, grand merci encore) qui permet à la fenêtre, LA PREMIERE FOIS QU'ELLE S'OUVRE, d'exécuter un traitement spécifique, puis à chaque nouvelle fois de ne pas l'exécuter.
L'instruction OnActivate:=nil est parfaite en ce sens pour des fenêtres qui basculent sans cesse de l'une à l'autre, l'information lue dans l'une éest réinvestie dans l'autre.

Une simple question maintenant : comment peut-on désactiver l'instruction OnActivate:=nil. Autrement dit rendre à nouveau l'événement Onctivate opérationnel ?
Peut-on écrire OnActivate:=self ?

Ca ne marche pas, ca :

Code:

---

OnActivate := FormActivate;

---

:roll: :?:

Citation:

---

Envoyé par Lung

Ca ne marche pas, ca :

Code:

---

OnActivate := FormActivate;

---

:roll: :?:

---

Soit dit en passant, et pour t'éviter des questions plus tard : ça fonctionne pour TOUS les évènements :
Exemples :

Code:

---

1 2 3 4 5 6 7 8

OnClose:=Nil ... OnClose:=FormClose;     OnShow:=Nil; ... OnShow:=FormShow;

---

Et même sur les composants autres que les fiches :

Code:

---

1 2 3

MonButton.OnClick:=Nil; ... MonButton.OnClick:=MonButtonClick;

---

Ais-je été assez compréhensible ?

Merci à Denis69, c'était effectivement ça ma question : comment restaurer une valeur de pointeur ?

Mais avant de faire

Code:

---

OnShow := nil;

---

ne faudrait-il pas libérer de la mémoire ?

Citation:

---

Envoyé par Claythest

Mais avant de faire

Code:

---

OnShow := nil;

---

ne faudrait-il pas libérer de la mémoire ?

---

:?: :?:

Ca permet juste de dire que l'évènement OnShow ne doit plus exécuter la fonction Show qui était associée.
Il n'y a rien a libérer !?

:roll:

Exact, apparemment les évènements sont des pointeurs sur fonctions, donc rien à libérer. :|