Discussion :

[Beauserge]

Bonsoir

J'ai un problème qui me tracasse depuis un bon moment sans que je trouve l'issue pour y remédier...

Je veux afficher le texte du label3 avant l'exécution du code Try ..finally - mais à l’exécution le label3 n'affiche aucun texte ??
pourquoi et quelle est la solution ?
Voir mon code ci dessous

Merci
A vous lire
Beauserge

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TfrmMain.Button2Click(Sender: TObject);
begin
Label3.caption:='Patientez, le transfert est en cours ....';  // c'est ici que rien ne s'affiche dans le label
 
   try
      BtnDownload.visible:=false
   finally
       Label3.caption:='Transfert terminé';
   end;
end;

[tourlourou]

Peut-être en ajoutant un Application.ProcessMessages après le changement du texte, que l'affichage puisse être rafraîchi ?
S'il s'agit de le laisser visible alors que le traitement est très bref, mettre une pause avec Sleep(durée);

[Beauserge]

C'est vraiment parfait tourlourou !
Cela fonctionne à merveille - et même pas besoin d'ajouter Sleep(durée)

Tu m'as enlevé une épine du pied :-)


Merci beaucoup pour la rapidité de réponse

Bonne soirée
Beauserge

[retwas]

J'utiliserais plutôt un Label.Update j'ai eu pas mal de soucis avec le Application.ProcessMessages