ProgressReplaceMessage (ihm)

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

Cette procedure remplace le dernier message de progression affiché.

iMessage

Le message à afficher

Exemple: <source lang='delphi'> begin

 ProgressClearMessage;
 //
 Cursor := MyClass.CreateCursor;
 Cursor.Open;
 try
  Cursor.First;
  while not Cursor.Eoi do
   begin
     ProgressMessage(Format(_TP('Traitement de linstance %s'),[Cursor.Instance.Caption]));
     //
     ProgressMessage(Format(_TP('Traitement des instances du rôle'),[]));
     for idx:=0 to Cursor.Instance.Role.Count-1 do
       begin
         ProgressReplaceMessage(Format(_TP('Traitement de linstance %d'),[idx]));
       end; 
     //
     Cursor.Next;
   end;  
 finally 
 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 —

}}