Discussion :

[bvsud]

Bonjour à tous

Voici une syntaxe qui plante ShowModal. Elle est pourtant identique à celle que j'ai l'habitude d'utiliser...

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
 
 
Procedure Appel_ITF_Saisie_Titre;  
Var Retour : integer;
 
begin
 
      Retour := Saisie_Titre_FLT.Form2.ShowModal;  // La renêtre s'appelle Saisie_Titre_FLT.DFM et le .PAS idem
 
      CASE Retour OF
          mrOK :
              begin
              end;
 
          mrAbort :
              begin
              end; 
      end; // Case
 
end;

Et j'ai cette erreur-là systématiquement à l'exécution (à travers l'IDE comme en dehors de l'IDE) :




Très exactement à l'appel de ShowModal.

Qu'est-ce qui m'arrive, là ? Merci...

[ero-sennin]

Salut,

A mon avis, il doit manquer un create sur la fenêtre...
Du moins, là comme ça, c'est ce que je dirai.

[bvsud]

Salut,

A mon avis, il doit manquer un create sur la fenêtre...
Du moins, là comme ça, c'est ce que je dirai.

Un create sur laquelle ? La Form appelée ?

[ero-sennin]

Sur la form Saisie_Titre_FLT.

En fait, tu as une adresse null, donc il faut vérifier que Saisie_Titre_FLT soit bien instanciée, ainsi que form2.

[ShaiLeTroll]

Saisie_Titre_FLT c'est pas plutôt le nom de l'unité ?
Il y a une différence entre ITF_Saisie_Titre et Saisie_Titre_FLT ?

tu devrais renommer Form2 en SaisieTitreFLTForm, cela serait plus élégant !
Attention aussi à l'utilisation de la variable Globale !
Ne pas confondre:
- nom de l'unité (uses)
- nom de la Classe TForm2 dans ton cas
- nom de la variable globale Form2 (ajouter automatiquement, à supprimer le plus tôt que possible !)

Ce qui est étrange c'est 00000000, c'est rare qu'une variable mal initialisée soit à nil, tu n'aurais pas un FreeAndNil de Form2 avant ?

J'ai passé un test de compétence, il y avait ce genre de question, et moi qui pensant le test facile !

C'est marrant de faire une procédure, les méthodes statiques et la POO c'est encore un truc obscure !

[ero-sennin]

Saisie_Titre_FLT c'est pas plutôt le nom de l'unité ?

A oui, j'avais pas percuté là dessus!!

[bvsud]

Saisie_Titre_FLT c'est pas plutôt le nom de l'unité ?
Il y a une différence entre ITF_Saisie_Titre et Saisie_Titre_FLT ?

tu devrais renommer Form2 en SaisieTitreFLTForm, cela serait plus élégant !
Attention aussi à l'utilisation de la variable Globale !
Ne pas confondre:
- nom de l'unité (uses)
- nom de la Classe TForm2 dans ton cas
- nom de la variable globale Form2 (ajouter automatiquement, à supprimer le plus tôt que possible !)

Ce qui est étrange c'est 00000000, c'est rare qu'une variable mal initialisée soit à nil, tu n'aurais pas un FreeAndNil de Form2 avant ?

J'ai passé un test de compétence, il y avait ce genre de question, et moi qui pensant le test facile !

C'est marrant de faire une procédure, les méthodes statiques et la POO c'est encore un truc obscure !

Alors : les fichiers du projet sont :

Interface_Saisie_FLT.cfg
Interface_Saisie_FLT.dof
Interface_Saisie_FLT.dpr
Interface_Saisie_FLT.res

Saisie_Contient.dfm
Saisie_Contient.pas

Saisie_Ne_Contient_Pas.dfm
Saisie_Ne_Contient_Pas.pas

Saisie_Titre_FLT.dfm
Saisie_Titre_FLT.pas

Unit1.dfm // Form1, bien sûr
Unit1.pas // Unité de la Form1

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
  // du fichier .DPR
program Interface_Saisie_FLT;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Var_Globales_Base_Articles in '..\Var_Globales_Base_Articles.pas',
  Procedures_Communes in '..\Procedures_Communes.pas',
  Saisie_Titre_FLT in 'Saisie_Titre_FLT.pas' {Form2},
  Saisie_Contient in 'Saisie_Contient.pas' {Form3},
  Saisie_Ne_Contient_Pas in 'Saisie_Ne_Contient_Pas.pas' {Form4};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;
end.

Ca vous renseigne ? Là, je suis dans le bleu