ProgressMessageEx (ihm)

procedure ProgressMessageEx(iStatus:TMessageStatus; const iMessage:string);

Cette procedure affiche un message de progression dans l'interface utilisateur.

iStatus	Le type de message
iMessage	Le message à afficher

Note : Suivant le style de l'interface utilisateur le message peut être affiché dans une zone libellé ou dans une liste.

Exemple:

var ctn:Integer; aReason:string;
begin 
  ctn := 0;
  ProgressClear;
  ProgressClearMessage;
  ProgressMax(100);
  //
  Cursor := MyClass.CreateCursor;
  Cursor.Open;
  try
   Cursor.First;
   while not Cursor.Eoi do
    begin
      ....
      if UserAbort then raise Exception.Create('Traitement interrompu');
 
      if _doSomething(aReason) 
        then ProgressMessage(msgSuccess,Format(_TP('Traitement de l''instance %s, OK'),[Cursor.Instance.Caption]))
        else ProgressMessage(msgError,Format(_TP('Traitement de l''instance %s, Erreur %s'),[Cursor.Instance.Caption, aReason]));
 
      ProgressValue(ctn mod 100);
      Cursor.Next;
      ctn := ctn+1;
    end;  
  finally 
  ProgressFull;
  Cursor.Close;
  end;
end;

Voir aussi:

• ProgressMessage

— Interactions utilisateurs (code) — Développement DSM —