Tu n'as pas essayer de mettre un Timer sur ta fiche pour tester la date régulièrement ?
Var MemoDate:TDateTime=0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If Date<>MemoDate
Then begin
// Code qui change label1
...
End;
MemoDate:=Date;
end;
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
Allo!
J'ai essayer avec espoir de faire faire marcher mon programme mais sa n'a pas marcher :(
Mon programme contient ceci :
(1) Label
(1) MonthCalendar
La Caption de mon Label est : 1
c'est que quand on change la date c'est que mon Label change
ex:. Aujourd'hui 20 novembre = Le label va etre a 1
Demain 21 novembre le label va etre a 2
etc ....
En résumé, je veux que si la date de Windows Change que le nombre dans le Label augmente ou diminue en concéquence ...
Mais j'ai essayer de toute les facons pis sa n'a pas marcher Aider moi !!! :(
Merci!