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