ProgressMessage (ihm)

De Wiki1000
(Différences entre les versions)
Syfre (discuter | contributions)
(Nouvelle page : <source lang='delphi'>procedure ProgressMessage(const iMessage:string);</source> Cette procedure affiche un message de progression dans l'interface utilisateur. {|class="wikitable"...)
Modification suivante →

Version du 1 août 2009 à 15:06

procedure ProgressMessage(const iMessage:string);

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

iMessage Le message a afficher

Exemple:

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 l''instance %s'),[Cursor.Instance.Caption]));
      ...
      Cursor.Next;
    end;  
  finally 
  Cursor.Close;
  end;
end;

Voir aussi:

Interactions utilisateurs (code)Développement DSM

Outils personnels