Discussion :

[saidus]

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 :

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
 
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

[MedGIR]

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 :

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

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

[ALWEBER]

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 :

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

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;