Génération ProgressBar Delphi, XMLRAD
Bonjour,
J'ai bien suivi les indications trouvées ici pour piloter ma progress depuis Delphi.
J'ai d'abord :
Code:
1 2 3 4
|
XMLInstruction := XMLGram.GetXMLInstruction('MyProgress');
if(XMLInstruction = nil) then showmessage('Instruction Progress non trouvée !');
Progress := TProgress(XMLInstruction.Get_ObjectReference); |
Puis, dans un repeat (sur le contenu d'un dossier), j'ai :
Code:
1 2 3
|
Progress.Current := 0;
Progress.MaxField := IntToStr(var); |
Mon pb : à l'affichage, ma progress indique un max toujours égal à 100, ne tenant apparement pas compte de l'affection précédente ! Qq'un a t'il une idée ?
Merci de votre indulgence ...
NB