Un label: Comment arrêter son clignotement infini

procedure TForm1.Button1Click(Sender: TObject);
  var TimerDelta,TimerSecRun  : cardinal;
begin
  Label1.Tag := TimerSecRun + 3; // secondes ecoulées + 3 secondes
end;
procedure TForm1.Timer1Timer(Sender: TObject);
  var TimerDelta,TimerSecRun  : cardinal;
begin
  inc(TimerDelta);
  TimerSecRun := round(TimerDelta * (Sender as TTimer).Interval * 0.001);
  if Label1.Tag >= TimerSecRun then // clignote pendant 3 secondes
  Label1.visible := not Label1.visible;
end;

Premiere chose qui me choque : tu vérifie en continue la valeur du Tag ( if Label1.Tag ) mais à quel moment la valeur du Tag change ? Jamais (si si regarde bien). A aucun moment dans le onTimer tu refais Label1.Tag:=TimerSecRun;

Allez on va pas passer 3 ans la dedans : voici la solution

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Tag:=0; 
  Timer1.Interval:=100; 
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Tag:=Label1.Tag+Timer1.Interval;
  If Label1.Tag<3000 Then Label1.visible := not Label1.visible
Else  Label1.visible:=False;
end;

Seconde chose qui me choque : on a le sentiment que tu codes des choses sans meme les comprendre.

Pour finir ma remarque n'a rien de méchante : Mais bon hormis que ca saoule de redire 50 000 fois la meme chose, il faut arreter de passer sa journée sur le net afin d'obtenir du tout cuit. Si tout le monde attendait que le copain fasse un machin, on en serait encore à l'homme de la préhistoire . Donc de temps on lache son pc, on prend son stylo, on prend son papier, on se met la tete entre les mains et on réfléchit . Si tu ne fais pas ca, tu ne progresseras jamais.

La preuve Jenny : ca fait 1 an et demi que tu es ici. Et apres 1 an et demi de developpement intensif, tu en es toujours au meme stade (Proche de la nullité : désolé le but n'est pas de te blesser). Tout ca parce que tu t'es jamais donné la peine d'essayer de comprendre la moindre chose. Je trouve plutot cela triste/dommage pour toi .

Moi ce que je supporte pas (et je finirais la dessus) : c'est que moi je m'éfforce à ne pas polluer le forum quitte a parfois en baver sacrément (en passant des semaines et des semaines sur un truc con), alors que d'autres en ont rien à sécouer et pollue constamment.