ProgressClearMessage (ihm)

<source lang='delphi'>procedure ProgressClearMessage;</source>

Cette procedure efface les messages de progression dans l'interface utilisateur.

Pas de paramètre

Exemple: <source lang='delphi'> begin

 ProgressClearMessage;
 //
 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]));
     ...
     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 —

}}