« ProgressMessage (ihm) » : différence 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"...) |
Aucun résumé des modifications |
||
| 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; | ||
Dernière version du 1 août 2009 à 14:29
<source lang='delphi'>procedure ProgressMessage(const iMessage:string);</source>
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: <source lang='delphi'> 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 linstance %s'),[Cursor.Instance.Caption]));
ProgressValue(ctn mod 100);
Cursor.Next;
ctn := ctn+1;
end;
finally
ProgressFull;
Cursor.Close;
end;
end; </source>
Voir aussi:
{{#if:Interactions utilisateurs (code)|
{{#if:Interactions utilisateurs (code)|— Interactions utilisateurs (code) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}