rafraichissement de curseurRésolu

Question

Bonjour,



Je suis en train de me cr&#233;er un programme tout b&#234;te mais j'ia un probl&#232;me pour rafraichir le curseur &#224; un moment donn&#233;.

Je m'explique, je souhaites opuvoir t&#233;l&#233;charger une mise &#224; jour en cliquant sur un bouton.

Quand je cliques sur le bouton je souhaites rafraichir mon curseur mais cela ne marche pas.



procedure TForm1.MAJClick(Sender: TObject);

Var

  F: TFileStream;

begin

  Form1.Cursor:=crHourGlass;

  MAJ.Cursor:=crHourGlass;

  Image1.Cursor:=crHourGlass;

  downloading.Visible:=True;

  Form1.Refresh;

  try

    F := TFileStream.Create('c:\mon_telechargement.zip',
fmCreate); // Le fichier sera enregistr&#233; sur c:\mon_telechargement.zip

   
IdHTTP1.get('http://www.URL.com/mon_telechargement.zip',F); // On
R&#233;cup&#232;re le fichier de www.URL.com/mon_telechargement.zip et on envoie
tout sur le flux F...

  Finally

    Form1.Cursor:=crDefault;

    MAJ.Cursor:=crDefault;

    Image1.Cursor:=crDefault;

    {Message de fin}

    downloading.Caption:='T&#233;l&#233;chargement termin&#233;';

    {Enfin on lib&#232;re F}

    F.Free;

  end;

end;



Le code ci-dessus est le code de mon bouton. Les 3 lignes qui sont en rouges-gras sont mon probl&#232;me.

Elle ne veulent pas se metttre en place.

A l'origine quand je met le curseur sur le bouton je la change en une
main, et l&#224; ben d&#233;s qu'il commence le t&#233;l&#233;chargement du fichier je dois
attendre la fin pour qu'il prenne tout en compte et donc ces lignes ne
se voyent pas.



A part ca tout marche bien.



Pourrize-vous m'aider s'il vous plait

cs_ManChesTer · Accepted Answer

Image1.Cursor:=crHourGlass;
  downloading.Visible:=True;
  Form1.Refresh;
application.processmessages;
sleep(100);

try
...

Bon Coding ....

ManChesTer.

Rafraichissement de curseur

1 réponse

Votre réponse

Discussions similaires