Réponse acceptée !
Jenny (tu vois je suis cool j'ai finis mon taff et plutot que de rentrer je te répond
) : la question n'est pas de savoir si mes remarques sont gentilles ou pas.
Je préfere donner un bon coup de pompes aux fesses de quelqu'un et de le reveiller, plutot que de me dire "Bon allez je lui file : il est trop bete pour réflechir".
Je dirais en substance : Un forum est là pour aider : Cependant ca ne dispense en rien ni de chercher ni de réflechir. Certains ont tendance à l'oublier
.
Par exemple là :
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.