ProgressMessageEx (ihm)

<source lang='delphi'>procedure ProgressMessageEx(iStatus:TMessageStatus; const iMessage:string);</source>

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: <source lang='delphi'> 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 linstance %s, OK'),[Cursor.Instance.Caption]))
       else ProgressMessage(msgError,Format(_TP('Traitement de linstance %s, Erreur %s'),[Cursor.Instance.Caption, aReason]));

     ProgressValue(ctn mod 100);
     Cursor.Next;
     ctn := ctn+1;
   end;  
 finally 
 ProgressFull;
 Cursor.Close;
 end;

end; </source>

Voir aussi:

• ProgressMessage

{{#if:Interactions utilisateurs (code)|

{{#if:Interactions utilisateurs (code)|— Interactions utilisateurs (code) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}