ProgressMessage (ihm)

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

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

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; 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');
     ProgressMessage(Format(_TP('Traitement de linstance %s'),[Cursor.Instance.Caption]));
     ProgressValue(ctn mod 100);
     Cursor.Next;
     ctn := ctn+1;
   end;  
 finally 
 ProgressFull;
 Cursor.Close;
 end;

end; </source>

Voir aussi:

{{#if:Interactions utilisateurs (code)|

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

|

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

}}