ProgressClearMessage (ihm)

De Wiki1000
(Différences entre les versions)
(Nouvelle page : <source lang='delphi'>procedure ProgressClearMessage;</source> Cette procedure efface les messages de progression dans l'interface utilisateur. {|class="wikitable" |- |Pas de param...)
 
 
Ligne 9 : Ligne 9 :
  
 
Exemple:
 
Exemple:
<source lang='delphi'>
+
 
begin
+
*[[ProgressMessage (ihm)|Voir l'exemple dans ProgressMessage.]]
  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 l''instance %s'),[Cursor.Instance.Caption]));
+
      ...
+
      Cursor.Next;
+
    end; 
+
  finally
+
  Cursor.Close;
+
  end;
+
end;
+
</source>
+
  
 
Voir aussi:
 
Voir aussi:

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

procedure ProgressClearMessage;

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

Pas de paramètre

Exemple:

Voir aussi:

Interactions utilisateurs (code)Développement DSM

Outils personnels