ProgressReplaceMessage (ihm)

Syfre (discuter | contributions)
(Nouvelle page : <source lang='delphi'>procedure ProgressReplaceMessage(const iMessage:string);</source> Cette procedure remplace le dernier message de progression affiché. {|class="wikitable" |- ...)

---

Version actuelle en date du 1 août 2009 à 15:50

procedure ProgressReplaceMessage(const iMessage:string);

Cette procedure remplace le dernier message de progression affiché.

iMessage

Le message à afficher

Exemple:

begin 
  ProgressClearMessage;
  //
  Cursor := MyClass.CreateCursor;
  Cursor.Open;
  try
   Cursor.First;
   while not Cursor.Eoi do
    begin
      ProgressMessage(Format(_TP('Traitement de l''instance %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 l''instance %d'),[idx]));
        end; 
      //
      Cursor.Next;
    end;  
  finally 
  Cursor.Close;
  end;
end;

Voir aussi:

— Interactions utilisateurs (code) — Développement DSM —