Discussion :

[ms91fr]

J'ai utilise l'evenement OnIdle de TApplication pour lancer une procedure d'arriere-plan mais je n'arrive pas a l'arreter car elle se lance tout le temps et moi je voudrais qu'elle ne se lance qu'une fois.
Comment faire ????

Merci pour tout.

[gord's]

si tu ne nous donne pas + de détails, ça ne va pas être facile de t'aider.
Que fait cette tache, comment est-elle codée ?

[Laurent GAUDILLIER]

Bonjour,

Voici une Solution simple:

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
24
25
26
 
 
const
     Go: Boolean = True; // Variable initialisée
 
procedure TForm1.FormCreate(Sender: TObject) 
begin 
   ... 
   Application.OnIdle:= MyIdleHandler; 
   ... 
end; 
 
procedure TForm1.MyIdleHandler(Sender: TObject; var Done: Boolean) 
begin 
      if Go then 
      begin
           ExecuteTask; 
           Go:= False;
      end; 
      ....
end;
 
procedure TForm1.ExecuteTask 
begin 
   .... 
end;

Cordialement Laurent

[chtiot]

salut laurent,


Pb dans ton source : tu déclares Go comme une constante et tu modifies ensuite la valeur pour la mettre à False, il me semble que modifier la valeur d'une constante entraine une exception...

Go doit être une variable.

[gord's]

bienvenus au club des Grosses ruses Delphi : une constante typée est traitée vomme une variable par le compilo.

[Laurent GAUDILLIER]

En effet, Go est déclarée avec Const, mais dans ce cas, ce n'est pas une vrai constante, mais une variable initialisée !
Par conséquent, tu peut modifiée sa valeur.

Ceci est l'équivalent d'une variable C++ déclarée static

Bonne continuation

Laurent

[chtiot]

j'ai appris quelque chose de nouveau.

merci les gars.

quoiqu'il en soit, ça va à l'encontre de toute logique mais ça peut etre bien pratique pour initialiser la variable directement lors de sa déclaration...