Discussion :

[HT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Lung]

Ca ne marche pas, ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OnActivate := FormActivate;

:

[Denis69]

Ca ne marche pas, ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OnActivate := FormActivate;

:

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
MonButton.OnClick:=Nil;
...
MonButton.OnClick:=MonButtonClick;

Ais-je été assez compréhensible ?

[HT]

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

[Claythest]

Mais avant de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OnShow := nil;

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

[Lung]

Mais avant de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !?

[Claythest]

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