Discussion :

[Simicro]

Bonjour,

J'aurais une question quelque peu triviale.

Dans une fiche, j'ai un OnCreate :

Code :

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

1
2
3
4
5
6
7
8
procedure TFiche.FormCreate(Sender: TObject);
 
begin
  instruction1;
  instruction2;
  ...
  instructionN;
end;

qui initialise des variables et des affichages.

Je souhaiterais appeler les instructions 1...N contenues dans ce OnCreate à partir d'un click sur un bouton :

Code :

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

1
2
3
4
procedure TFiche.Button1Click(Sender: TObject);
begin
//Que dois-je écrire ici ?
end;

Empiriquement, j'ai essayé :

TFiche.FormCreate(Sender: TObject);
Fiche.FormCreate(Sender: TObject);
FormCreate(Sender: TObject);
FormCreate();
FormCreate;

... sans résultat.

[Ph. B.]

Bonjour,

Empiriquement, j'ai essayé :

TFiche.FormCreate(Sender: TObject);
Fiche.FormCreate(Sender: TObject);
FormCreate(Sender: TObject);
FormCreate();
FormCreate;

... sans résultat.

Reprenons le prototype de la méthode FormCreate : TForm.FormCreate(Sender: TObject);Pour l'appeler, il faut donc lui fournir un paramètre de type TObject, on peut donc reprendre le Sender fourni en entrée de la méthode Button1Click ou indiquer que l'on transmet rien, sous entendu un objet non intialisé, cad nil.
On peut donc écrire :

Code :

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

1
2
3
4
5
6
procedure TFiche.Button1Click(Sender: TObject);
begin
  FormCreate(Sender);
  // ou bien
  FormCreate(nil);
end;

Si le paramètre Sender de FormCreate n'est pas utilisé dans votre code, on peut choisir la 2° solution.

L'idéal serait toutefois et AMHA d'écrire plutôt vos traitements comme suit (decouplage des codes de traitement et des code de gestion d'événements):

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
type
  TFiche = class(TForm)
    //...
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    //...
  private
    procedure MesInstructions;
    //...
  end;
 
  //...
 
procedure TFiche.FormCreate(Sender: TObject);
begin
  MesInstructions;
end;
 
procedure TFiche.Button1Click(Sender: TObject);
begin
  MesInstructions;
end;
 
procedure TFiche.MesInstructions;
begin
  instruction1;
  instruction2;
  ...
  instructionN;
end;

[Simicro]

Bonjour Philippe,

Un grand merci pour ta réponse rapide et tes explications.

Je partage complètement l'objectif d'avoir un code structuré et propre (découplage des codes de traitement et des codes de gestion d'événements) mais j'ai eu un souci qui m'a empêché de le faire dans cet exemple précis.

[Paul TOTH]

J'ajouterais qu'il est tout à fait possible dans l'Inspecteur d'objets de renommer la procédure "FormCreate" en "LancerInstructions" et de faire pointer les deux événements (OnCreate de la fiche et OnClick du bouton) sur cette unique méthode

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TFiche.LancerInstructions(Sender: TObject);
 // déclenché par Fiche.OnCreate et Button1.OnClick
begin
  instruction1;
  instruction2;
  ...
  instructionN;
end;

[Simicro]

Merci bien Paul pour cette astuce.