Aborts (Propriété)
De Wiki1000
(Différences entre les versions)
| Ligne 1 : | Ligne 1 : | ||
| − | |||
Cette collection contient les déclencheurs permettant à l'utilisateur de signaler une interruption. | Cette collection contient les déclencheurs permettant à l'utilisateur de signaler une interruption. | ||
| − | Une interruption se traduit par le passage de la variable UserAbort à vrai , variable que le code métier exécuté doit tester. | + | Une interruption se traduit par le passage de la variable [[UserAbort_(ihm)|UserAbort]] à vrai , variable que le code métier exécuté doit tester. |
| + | |||
| + | Exemple : | ||
| + | |||
| + | <source lang='delphi'> | ||
| + | {Procedure ExecuterEnAttente(vVueList:TVueIncidentAttenteList);} | ||
| + | var i : integer; | ||
| + | begin | ||
| + | ProgressClear; | ||
| + | ProgressMax(vVueList.Count); | ||
| + | try | ||
| + | for i := 0 to vVueList.Count - 1 do | ||
| + | begin | ||
| + | if UserAbort then | ||
| + | raise ERule.Create(_TP('Interruption par l''utilisateur')) | ||
| + | else | ||
| + | begin | ||
| + | ... | ||
| + | end; | ||
| + | ProgressValue(i); | ||
| + | end; | ||
| + | Except | ||
| + | ProgressMessage(E.Message); | ||
| + | end; | ||
| + | ProgressFull; | ||
| + | end; | ||
| + | </source> | ||
| + | |||
| + | Voir aussi : | ||
| + | |||
| + | * [[UserAbort_(ihm)|UserAbort]] | ||
{{Footer|}} | {{Footer|}} | ||
[[category:Propriétés de contrôle]] | [[category:Propriétés de contrôle]] | ||
Version actuelle en date du 1 février 2010 à 15:24
Cette collection contient les déclencheurs permettant à l'utilisateur de signaler une interruption.
Une interruption se traduit par le passage de la variable UserAbort à vrai , variable que le code métier exécuté doit tester.
Exemple :
{Procedure ExecuterEnAttente(vVueList:TVueIncidentAttenteList);} var i : integer; begin ProgressClear; ProgressMax(vVueList.Count); try for i := 0 to vVueList.Count - 1 do begin if UserAbort then raise ERule.Create(_TP('Interruption par l''utilisateur')) else begin ... end; ProgressValue(i); end; Except ProgressMessage(E.Message); end; ProgressFull; end;
Voir aussi :
