p est une procédure
p = MaProcédure
p.Après = MaProcédureAppeléeAprès
p.Avant = MaProcédureAppeléeAvant
// L'ordre d'appel des procédures sera :
// - MaProcédureAppeléeAvant
// - MaProcédure
// - MaProcédureAppeléeAprès
p()
Syntaxe
Remplacer les procédures existantes avec la propriété Avant (opérateur =) Masquer les détails
<Elément>.Avant = <Procédure WLangage>
Insérer une procédure avant les procédures existantes (opérateur +=) Masquer les détails
<Elément>.Avant += <Procédure WLangage>
Remarques
Sortir de l'enchaînement des procédures
Si plusieurs procédures s'enchaînent, il est possible d'interrompre l'enchaînement des procédures à partir du code d'une des procédures en utilisant la fonction
DonneFocusEtRetourUtilisateur.
Exemple :
// Clic sur BTN_Bouton1
BTN_Bouton2.Traitement[trtClic].Avant += MaProc1
BTN_Bouton2.Traitement[trtClic].Avant += MaProc2
// Clic sur BTN_Bouton2
Trace("Clic sur Bouton 2")
PROCÉDURE MaProc1()
Trace(dbgInfo(dbgTraitement))
DonneFocusEtRetourUtilisateur(MoiMême.Nom)
PROCÉDURE MaProc2()
Trace(dbgInfo(dbgTraitement))