Syfre le 1 août 2009 à 14:29

2009-08-01T14:29:06Z

← Version précédente		Version du 1 août 2009 à 14:29
Ligne 6 :		Ligne 6 :
	\|-		\|-
	\|iMessage		\|iMessage
	\|Le message a afficher		\|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;

Syfre : Nouvelle page : procedure ProgressMessage(const iMessage:string); Cette procedure affiche un message de progression dans l'interface utilisateur. {|class="wikitable"...

2009-08-01T14:06:15Z

Nouvelle page : <source lang='delphi'>procedure ProgressMessage(const iMessage:string);</source> Cette procedure affiche un message de progression dans l'interface utilisateur. {|class="wikitable"...

Nouvelle page

<source lang='delphi'>procedure ProgressMessage(const iMessage:string);</source>

Cette procedure affiche un message de progression dans l'interface utilisateur.

{|class="wikitable"
|-
|iMessage
|Le message a afficher
|}

Exemple:
<source lang='delphi'>
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;
</source>

Voir aussi:

{{Footer|Interactions utilisateurs (code)}}
[[category:Interactions utilisateurs]]

ProgressMessage (ihm) - Historique des versions

Syfre le 1 août 2009 à 14:29

Syfre : Nouvelle page : procedure ProgressMessage(const iMessage:string); Cette procedure affiche un message de progression dans l'interface utilisateur. {|class="wikitable"...

Syfre : Nouvelle page : procedure ProgressMessage(const iMessage:string); Cette procedure affiche un message de progression dans l'interface utilisateur. {|class="wikitable"...