[Delphi 7] Programmation événementielle

Bonjour à tous.
En fait, je demande plus une aide à mieux comprendre la programmation événementielle qu'une solution à mon problème.
Voici mon problème:
dans un événement OnClick, j'ai une boucle qui, à chaque passage, effectue un travail (recopie d'un fichier dans un dossier). Je souhaite visualiser un compte-rendu pour chaque passage. Si je place ce compte-rendu dans un ShowMessage, pas de problème, ça marche, mais c'est inélégant (obligation de valider le message affiché). Si je place ce compte-rendu dans un Label.Caption ou dans un Edit.Text (ce que j'aimerais bien faire), seul le compte-rendu du dernier passage s'affiche (et ceci en sortie de l'événement OnClick). J'ai essayé un Refresh dans la boucle, ça ne marche pas.
En fait, j'ai résolu mon problème via une séquence Memo1.Clear - Memo1.Lines.Add('le compte-rendu').
Question : pourquoi les solutions Label.Caption ou Edit.Text ne fonctionnent-elles pas à chaque passage ?
D'avance merci.
Cordialement.
Alain

Je pense que la boucle s'effectue trop rapidement pour que tu puisses voir les différents affichage dans une textbox. Essaie de mettre une tempo eventuellement avant le passage à la boucle suivante

Citation:

---

Envoyé par alainvh

Bonjour à tous.
En fait, je demande plus une aide à mieux comprendre la programmation événementielle qu'une solution à mon problème.
Voici mon problème:
dans un événement OnClick, j'ai une boucle qui, à chaque passage, effectue un travail (recopie d'un fichier dans un dossier). Je souhaite visualiser un compte-rendu pour chaque passage. Si je place ce compte-rendu dans un ShowMessage, pas de problème, ça marche, mais c'est inélégant (obligation de valider le message affiché). Si je place ce compte-rendu dans un Label.Caption ou dans un Edit.Text (ce que j'aimerais bien faire), seul le compte-rendu du dernier passage s'affiche (et ceci en sortie de l'événement OnClick). J'ai essayé un Refresh dans la boucle, ça ne marche pas.
En fait, j'ai résolu mon problème via une séquence Memo1.Clear - Memo1.Lines.Add('le compte-rendu').
Question : pourquoi les solutions Label.Caption ou Edit.Text ne fonctionnent-elles pas à chaque passage ?
D'avance merci.
Cordialement.
Alain

---

Selon le temps de copie de tes données, ca peut être plus ou moins rapide et donc tu ne verras rien s'afficher.
Sinon, le problème dans ce genre de cas, c'est que le programme ne laisse pas passer les messages windows (notamement celui de rafraichissement de la fenêtre et donc du label).

En général on code de la manière suivante :

Code:

---

1 2 3 4 5 6 7

For i := 0 to 500 do begin Sleep(1000); // petite tempo juste pour le test Label1.caption := intToStr(i); Application.ProcessMessages; // Permet à l'application de laisser passer les messages windows end;

---

Essai avec et sans le Application.processMEssages tu verras la différence dans l'affichage

Merci à tous pour vos réponses.
C'est Malatar qui remporte la timbale ! C'est en effet l'instruction Application.ProcessMessages (que je ne connaissais pas) qui résoud ma difficulté : ce n'est ni un pb de concaténation, ni de vitesse : j'ai d'ailleurs essayé sans Slip - pardon, sans Sleep :D - et mon application marche bien.
Bien cordialement.
Alain

PS pour Malatar : je conserve un bon souvenir de Pont St Esprit, lors d'un mariage sur le bord du Rhône !