Discussion :

[ddubois]

Je souhaite afficher une boite de message 15 minutes après l'appui sur un bouton. Il faut employer Gettickcount mais quelle est la formule ?
Me faut-il un Timer également ?

D'avance Merci,

Denis

[Pedro]

Salut
Tu as le choix:
Soit tu utilises un Timer qui se déclenche au bout de 15 minutes (ou bien toutes les n secondes jusqu'à ce que les 15 minutes soient passées)
Soit tu fais une boucle avec un GetTickCount et tu déclenches lorsque les 15 minutes sont passées.
Par contre, l'utilisation d'une boucle avec GetTickCount va pas mal te bouffer des ressources Il faudrait que tu nous dises dans quel cadre tu voudrais faire ça.

[Cl@udius]

Salut

Un simple Timer fera l'affaire.
Tu définis ton timer sur 15 minutes que tu actives (Enabled := True) lors de l'appui sur ton bouton.

Ne pas oublier de désactiver le timer, si tu ne veux pas répéter l'évènement toutes les 15 mn.

[Edit]

Il faudrait que tu nous dises dans quel cadre tu voudrais faire ça.

Ouais, c'est pas bête ça !

@+ Claudius

[ddubois]

Merci pour la réponse
ok pour le timer. mais je met quoi comme code dans le Timer ?
il faut que je détermine si les 15 minutes sont passées ou non

il faut alors peut être comparer avec gettickCount non ?

Denis

[ero-sennin]

Salut,

Voici ce qu'il faut mettre dans ton Timer :

Code :

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

1
2
3
4
5
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage('Coucou');
Timer1.Enabled:=false; // On arrête le Timer
end;

Et voici comment on le déclenche :

Code :

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

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

Il faut vérifier, en mode Design Time que le Timer à la propriété Enable à false pour éviter que l'événément se déclenche au lancement de l'application.

Sinon, tu mets dans le OnCreate de ta forme :

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

Ensuite, il faut s'assurer de bien avoir défini l'intervalle soit en Design Time en mettant la valeur 900000 à la propriété Interval du Timer, soit par code (que tu peux mettre dans le OnCreate) :

Code :

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

Timer1.Interval:=900000; //15 minutes

J'espère que celà répond à tes questions

[Cl@udius]

Re,

OK grillé par ero-sennin !
A part que j'inverserais les 2 instructions, comme cela si l'utilisateur est parti prendre un café le timer ne se redéclenche pas avant qu'il ne referme le dialogue.

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=false; // On arrête le Timer
  ShowMessage('Coucou');
end;

@+ Claudius

[ero-sennin]

Re,

OK grillé par ero-sennin !
A part que j'inverserais les 2 instructions, comme cela si l'utilisateur est parti prendre un café le timer ne se redéclenche pas avant qu'il ne referme le dialogue.

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=false; // On arrête le Timer
  ShowMessage('Coucou');
end;

@+ Claudius

Exact ... Merci pour la "rectification"