voici l'algo de mon programme :
-> si click sur le bouton
-> modification du message (dans un edit)
-> téléchargement d'un fichier
-> modification du message (dans un edit)
tout ceci dans la meme fonction : TForm1.downloadClick(Sender: TObject);
voici mon code : (pas encore ordonné )
Code :
- procedure TForm1.downloadClick(Sender: TObject);
- var
- F: TFileStream;
- begin
- dl_view.Text := 'téléchargement en cours...';
- try
- (...) // téléchargement du fichier
- finally
- (...) // libération
- end;
- dl_view.Text := 'téléchargement terminé.';
- end;
|
mon probleme est que le message téléchargement en cours ne s'affiche pas par contre le téléchargement terminé s'affiche bien
merci pour votre aide en espérant avoir été clair