Demarrer une fonction au moment voulu

Bonjour !!!
J'ai le probleme suivant , j'ai creer un tout petit exemple, j'ai depose sur la forme un TTimer regle a 1 seconde , et j'ai cree un procedure qui affiche un message, et un TDateTimePicker.
Alors Dans l'evenement OnTimerTimer j'ai ecris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Timer1Timer(Sender: TObject); var ct, tt: TTime; // cd, dd: TDate; begin   ct := Time(); // cd := Date();   tt := DateTimePicker2.Time; // dd := DateTimePicker1.Date;   Label2.Caption := TimeToStr(Time());   if ct=tt then begin //Label1.Caption := 'Get it '; MonMessage("Azul Fellawen Ayimazighen"); Timer1.Enabled := false ; end; // Button2.Caption := IntToStr(GetTickCount()); end;

---

mais .... ca ne marche pas !!
ya il quelqu'un qui peux m'aider ???
merci a tous

Salut,

Bon si je comprends bien, tu veux que ton message t'affiche quelque chose quand l'heure est égale à celle que tu as mise dans le datetimepicker.

Donc perso, je ferais le bout de code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Timer1Timer(Sender: TObject); var CurrentTime : tTime; begin CurrentTime := now; Label2.Caption := FormatDatetime('hh:mm:ss',CurrentTime ); Application.processmessage; if DateTimePicker2.Time=Timeof(CurrentTime); begin Timer1.Enabled := false ; MessageBox('Azul Fellawen Ayimazighen',mtInformation,[mbOk],0); end; end;

---

Voila, je pense que cela devrait fonctionner

Mon ami tu essayes de saisir l'insaisisable. Il faut faire ton test sur une fourchette de valeur car dans une variable de type time il y a aussi les millisecondes.
Une autre possibilité :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var ct, tt: TTime; begin ct := Time(); tt := DateTimePicker1.Time; Label2.Caption := TimeToStr(Time); if TimeToStr(ct)=TimeToStr(tt) then begin Label1.Caption := 'Get it '; Timer1.Enabled := false ; end; end;

---