Aborts (Propriété)

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 :

• UserAbort

— Développement DSM —