Exécuter une procédure après la création d'une fiche

**szwip** · 16/10/2006, 14h07

Bonjour, je suis débutant et je souhaiterais exécuter une procédure après que la fiche soit créée.

Le but est d'afficher des infos au fur et à mesure que j'exécute mon programme, afin de vérifier que tout se passe correctement.

En utilisant l'évênement "OnCreate", je n'obtient l'affichage qu'une fois ma procédure achevée (ce qui semble logique).

La solution serait-elle d'utiliser "OnShow" en n'instanciant ma procédure qu'une seule fois ? Ou bien y-a-til plus simple ?

Merci.

**Pill_S** · 16/10/2006, 14h19

Envoyé par szwip

La solution serait-elle d'utiliser "OnShow" en n'instanciant ma procédure qu'une seule fois ? Ou bien y-a-til plus simple ?

On n'instancie pas les méthodes, elles existent grâce à l'instance à laquelle elles sont liées....

Mais oui, la solution est d'utiliser l'événement "onShow", ou encore "onActivate"

**szwip** · 16/10/2006, 15h16

Envoyé par Pill_S

On n'instancie pas les méthodes, elles existent grâce à l'instance à laquelle elles sont liées....

Mais oui, la solution est d'utiliser l'événement "onShow", ou encore "onActivate"

Finalement ça fonctionne comme je le souhaite avec "onActivate", et cela sans vérifier que la procédure a déjà ou non été exécutée une fois, contrairement à ce que je croyais.

Merci pour la réponse rapide

**Maldus** · 16/10/2006, 16h27

Met résolu dans ton titre

**Graffito** · 16/10/2006, 17h50

Bonjour,

Finalement ça fonctionne comme je le souhaite avec "onActivate", et cela sans vérifier que la procédure a déjà ou non été exécutée une fois, contrairement à ce que je croyais.

Je pense quil "faut vérifier".
L'event onactivate lorsqu' on revient dans l'appli après avoir changé d'appli (lancer l'explorateur par exemple).

**Maldus** · 16/10/2006, 18h31

Petite question bête pourquoi ne fait-on pas un OnCreate ?

**mayloshi** · 17/10/2006, 15h04

Envoyé par Maldus

Petite question bête pourquoi ne fait-on pas un OnCreate ?

Je me disais aussi, parce que c'est le seul evenement qui n'est appelé qu'une seule fois pour une seule fiche sur un seul processus.Les 2 autres c'est autant de fois qu'on va Activer ou Afficher la fiche...

**Jipété** · 17/10/2006, 20h04

Yep !

Les 2 autres c'est autant de fois qu'on va Activer ou Afficher la fiche...

T'es sûr de ça ? Parce que je viens de tester avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  i: integer;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  inc(i);
  form1.Caption := IntToStr(i);
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  inc(i);
  form1.Caption := IntToStr(i);
end;

Si je commente les 2 lignes dans le FormShow, ça m'affiche un 1 solid as a rock, et si je décommente je gagne un 2 pour toute la durée du prog, feuille cachée par une autre, "mise en bas", rappelée par Alt-Tab, bref aucune incrémentation dans l'une ou l'autre procédure.
Mes 2 cts,
--
jp

**mayloshi** · 18/10/2006, 11h07

Tu peux essayer maintenant ceci?Insere un TEdit, un Tmemo et deux Tbuttons:

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
27
28
29
30
31
32
33
34
 
var i:Integer;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
   Inc(i);
   form1.Caption:=IntToStr(i);
   monedit.Text:=IntToStr(i);
   memo1.Lines.Add('passage n°'+IntToStr(i)+'dans activate');
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
   Inc(i);
   form1.Caption:=IntToStr(i);
   monedit.Text:=IntToStr(i);
   memo1.Lines.Add('passage n°'+IntToStr(i)+'dans show');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   hide;
   sleep(5000);
   show;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   deactivate;
   sleep(5000);
   activate;
end;
 
end.