https://frp.sage.fr/wiki1000/index.php?action=history&feed=atom&title=ProgressReplaceMessage_%28ihm%29 2026-05-07T19:58:49Z Historique pour cette page sur le wiki MediaWiki 1.18.6 https://frp.sage.fr/wiki1000/index.php?title=ProgressReplaceMessage_(ihm)&diff=1054&oldid=prev 2009-08-01T14:50:46Z

<p>Nouvelle page : &lt;source lang=&#039;delphi&#039;&gt;procedure ProgressReplaceMessage(const iMessage:string);&lt;/source&gt; Cette procedure remplace le dernier message de progression affiché. {|class=&quot;wikitable&quot; |- ...</p> <p><b>Nouvelle page</b></p><div>&lt;source lang='delphi'&gt;procedure ProgressReplaceMessage(const iMessage:string);&lt;/source&gt;<br /> <br /> Cette procedure remplace le dernier message de progression affiché.<br /> <br /> {|class=&quot;wikitable&quot;<br /> |-<br /> |iMessage<br /> |Le message à afficher<br /> |}<br /> <br /> Exemple:<br /> &lt;source lang='delphi'&gt;<br /> begin <br /> ProgressClearMessage;<br /> //<br /> Cursor := MyClass.CreateCursor;<br /> Cursor.Open;<br /> try<br /> Cursor.First;<br /> while not Cursor.Eoi do<br /> begin<br /> ProgressMessage(Format(_TP('Traitement de l''instance %s'),[Cursor.Instance.Caption]));<br /> //<br /> ProgressMessage(Format(_TP('Traitement des instances du rôle'),[]));<br /> for idx:=0 to Cursor.Instance.Role.Count-1 do<br /> begin<br /> ProgressReplaceMessage(Format(_TP('Traitement de l''instance %d'),[idx]));<br /> end; <br /> //<br /> Cursor.Next;<br /> end; <br /> finally <br /> Cursor.Close;<br /> end;<br /> end;<br /> &lt;/source&gt;<br /> <br /> Voir aussi:<br /> <br /> {{Footer|Interactions utilisateurs (code)}}<br /> [[category:Interactions utilisateurs]]</div>

Syfre