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 a afficher

Exemple: <source lang='delphi'> begin

 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 —

}}