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 →
(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: