Discussion :

[Stevens.Georges]

Bonjour et heureuse année 2014 à tous.

Un bouton appelle la procedure ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure Sauvegarde;
var I,T:integer;
begin
  LabelCopie.Visible:=True;T:=LabelCopie.Top;
  for I:=0 to IFin do
    begin
      LabelCopie.Top:=T+I*12;
      Traitement;
    end;
end;

A l'appel de Sauvegarde LabelCopie.Visible est False.

Traitement est une sous-procedure qui copie des fichiers et prend plusieurs dizaines de secondes.

Avec Sauvegarde telle qu'elle est ci-dessus LabelCopie n'apparait qu'après la clôture de la procedure.

Comment faire pour que LabelCopie apparaisse dès l'instruction LabelCopie.Visible et que son .Top soit effectivement modifié à chaque itération de I.

J'ai vainement cherché dans les FAQ et n'ai rien trouvé.

Merci d'avance.

[Andnotor]

Application.ProcessMessages après chaque changement de Top mais ça va grandement ralentir le temps de traitement

[Stevens.Georges]

Un grand merci, Andnotor, ça marche super bien.

[guillemouze]

Attention, Application.processMessages traite tous les messages en attente, y compris les click sur des boutons qui auraient lieu pendant ton traitement.
Tu peux alternativement utiliser la méthode Update, qui va traiter uniquement les messages d'affichage en attente, ou alors la méthode Repaint, qui va forcer le redessin de ton label.
Il faut peut-être que tu appelle la méthode sur le parent de ton label, à vérifier.

[Stevens.Georges]

Merci guillemouze pour tes précisions.

[Stevens.Georges]

Bonjour à tous.

Ma question initiale a été résolue parfaitement par adjonction de Application.ProcessMessages ou Update.

Question subsidiaire sur laquelle je sèche :

Comment rendre le Label clignotant lorsqu'il est visible (ou pas) de façon à attirer l'attention de l'utilisateur.

Merci d'avance.

[tourlourou]

un Timer dont l'événement OnTimer bascule la propriété Visible, et loge dans la propriété Tag le nombre de clignotements effectués pour se désactiver (Enabled:=False) lorsqu'il aura atteint une certaine limite.

[Stevens.Georges]

Merci Tourlourou,

J'ai essayé mais le Timer s'arrête dès après la première bascule.

Je pense que le problème se situe dans la position respective des instructions et des Application.ProcessMessages mais je ne suis pas arrivé à trouver une combinaison telle que le Timer continue à être actif.

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedureTForm1.MyOnTimer(Sender: TObject);
var
  aTimer: TTimer;
begin
  Label1.Visible := not Label1.Visible ;
  aTimer := Sender as TTimer;
  Dec(aTimer.Tag);
  if aTimer.Tag<1 then
  begin
    Label1.Show;
    aTimer.Enabled:=False;
  end 
end;
 
//...
begin
  //...
  Label1.Show;  
  Timer1.Interval:=300;
  Timer1.OnTimer:=MyOnTimer;
  Timer1.Tag:=15;
  Timer1.Enabled:=True;
  //..
end;

[Stevens.Georges]

Merci Tourlourou.

Pour être honnête je n'ai pas bien saisi le code que tu proposes. Mon problème n'a de plus probablement pas été bien exposé.

C'est pourquoi je le pose ci-dessous d'une façon plus claire et plus simple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure Routine;
var I,N:integer;
begin
  Form1.Label1.Visible:=True;
  Application.ProcessMessages;
//Pause
  for I:=0 to 5 do
  begin
    N:=0;
    repeat
    Inc(N);
    until N>2000000000;
  end;
//Fin de Pause
  Form1.Label1.Visible:=False;
end;

Un bouton appelle la procedure Routine. Avant l'exécution la propriété Visible de Label1 est False.

Les lignes entre Pause et Fin de Pause simulent le temps pris en réalité par des copies de fichiers. Avec mon PC qui n'est pas très récent Pause dure environ 15 secondes.

Comment faire pour que pendant ces 15 secondes Label1 clignote ?

Merci d'avance.

[Andnotor]

C'est toujours le même problème : ta boucle bloque le traitement des messages. Application.ProcessMessages doit être dans la boucle.
Pour s'en passer, il faudrait que la copie des fichiers se fasse dans un thread secondaire (ce qui serait de toute façon nettement mieux).

[Stevens.Georges]

Merci encore à tous les deux.

Je vais pousser mes investigations du coté des threads comme tu le suggères, Andnotor.

[Stevens.Georges]

Bonjour à tous,

Comme suggéré par Andnotor j'ai mis en place un thread secondaire et ça marche super bien.

Maintenant je voudrais afficher un message à la sortie du thread et je pense que pour cela il faut que j'appelle un MessageDlg ou un ShowMessage dans l'évènement OnTerminate du thread.

Mais je dois être plus c.. que la moyenne car je n'arrive pas à trouver comment il faut faire pour afficher à l'écran OnTerminate et y écrire du code.

Merci de votre aide en détaillant bien comment procéder.

[Andnotor]

Simplement déclarer une procédure qui respecte le prototype TNotifyEvent :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Thread :TMyThread;
    procedure ThreadTerminated(Sender :TObject); //<---
  end;
 
implementation
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Thread := TMyThread.Create;
  Thread.OnTerminate := ThreadTerminated; //<---
end;
 
procedure TForm1.ThreadTerminated(Sender: TObject);
begin
  ShowMessage('Blabla');
end;

[Stevens.Georges]

Merci Andnotor.