ProgressMessage (ihm)
De Wiki1000
(Différences entre les versions)
(Nouvelle page : <source lang='delphi'>procedure ProgressMessage(const iMessage:string);</source> Cette procedure affiche un message de progression dans l'interface utilisateur. {|class="wikitable"...) |
|||
| Ligne 6 : | Ligne 6 : | ||
|- | |- | ||
|iMessage | |iMessage | ||
| − | |Le message | + | |Le message à afficher |
|} | |} | ||
| + | |||
| + | {{info|Suivant le style de l'interface utilisateur le message peut être affiché dans une zone libellé ou dans une liste.}} | ||
Exemple: | Exemple: | ||
<source lang='delphi'> | <source lang='delphi'> | ||
| − | begin | + | var ctn:Integer; |
| + | begin | ||
| + | ctn := 0; | ||
| + | ProgressClear; | ||
| + | ProgressClearMessage; | ||
| + | ProgressMax(100); | ||
| + | // | ||
Cursor := MyClass.CreateCursor; | Cursor := MyClass.CreateCursor; | ||
Cursor.Open; | Cursor.Open; | ||
| Ligne 18 : | Ligne 26 : | ||
while not Cursor.Eoi do | while not Cursor.Eoi do | ||
begin | begin | ||
| + | .... | ||
if UserAbort then raise Exception.Create('Traitement interrompu'); | if UserAbort then raise Exception.Create('Traitement interrompu'); | ||
ProgressMessage(Format(_TP('Traitement de l''instance %s'),[Cursor.Instance.Caption])); | ProgressMessage(Format(_TP('Traitement de l''instance %s'),[Cursor.Instance.Caption])); | ||
| − | + | ProgressValue(ctn mod 100); | |
Cursor.Next; | Cursor.Next; | ||
| + | ctn := ctn+1; | ||
end; | end; | ||
finally | finally | ||
| + | ProgressFull; | ||
Cursor.Close; | Cursor.Close; | ||
end; | end; | ||
Version actuelle en date du 1 août 2009 à 15:29
procedure ProgressMessage(const iMessage:string);
Cette procedure affiche un message de progression dans l'interface utilisateur.
| iMessage | Le message à afficher |
|
Note : Suivant le style de l'interface utilisateur le message peut être affiché dans une zone libellé ou dans une liste. |
Exemple:
var ctn:Integer; begin ctn := 0; ProgressClear; ProgressClearMessage; ProgressMax(100); // 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])); ProgressValue(ctn mod 100); Cursor.Next; ctn := ctn+1; end; finally ProgressFull; Cursor.Close; end; end;
Voir aussi:
