Discussion :

[SkyDev]

Bonjour à tous,

Vlà j'esplique le problème, c'est quand je clique sur un bouton trouvant dans une fiche parent MDI, et va créer une fiche , etc...

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFMain.Gestiondesemploys1Click(Sender: TObject);
var result : boolean;
begin
   result := False;
   If (F_Emp_Ges is TF_Emp_Ges) and (F_Emp_Ges.Showing = True) Then
   	result := False
   Else begin
   	Application.CreateForm(TF_Emp_Ges, F_Emp_Ges);
      F_Emp_Ges.Show;
      result := True;
   	end;
end;

Et affiche l'erreur:

Code :

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

Impossible de créer la fiche. Aucune fiche Non MDI active.

Je me demande qu'est ce que ca veut dire cette problème, pourtant mon code est corret, j'ai même été à l'option du projet, tt est ok.

Merci de m'aider

[Nono40]

Est-ce que TFMain est bien de type ParentMDI et TF_Emp_ges de type ChildMDI ?

[SkyDev]

Oui bien sur TFMain est bien de type fsMDIForm et TF_Emp_Ges de type fsMDIChild.

Mais quand je mets F_emp_Gestion de type fsNormal, tt marche à merveille mais pas fsMDIChild J'y comprends rien

MErci de m'aider

[Xenon]

Salut ...

Personellement je procéde pas ainsi pour les créations dynamiques de forms.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TFMain.Gestiondesemploys1Click(Sender: TObject); 
var result : boolean; 
begin 
   result := False; 
   If (F_Emp_Ges is TF_Emp_Ges) and (F_Emp_Ges.Showing = True) Then 
      result := False 
   Else begin 
      F_Emp_Ges :=  TF_Emp_Ges.create(Self);
      F_Emp_Ges.name := Emp_Ges;
      F_Emp_Ges.Show; 
      result := True; 
      end; 
end;

Mais cela n'a peut être rien a voire .... a tester

Courrage.

[antp]

Oui bien sur TFMain est bien de type fsMDIForm et TF_Emp_Ges de type fsMDIChild.

Et est-ce que TFMain est bien la form principale du projet ? (= Application.MainForm)

C'est idiot mais seule la form principale peut être de type MDI, j'ai eu ce problème récemment :/

[SkyDev]

Oui bien sur TFMain est bien de type fsMDIForm et TF_Emp_Ges de type fsMDIChild.

Et est-ce que TFMain est bien la form principale du projet ? (= Application.MainForm)

C'est idiot mais seule la form principale peut être de type MDI, j'ai eu ce problème récemment :/

Non, car au démarrage, on démarre d'abord le splash, puis le form d'identification ou on doit entrer le nom de l'utilisateur et le mot de passe, si c ok, als on crée la form TFMain. Vlà, c'est ce que j'ai fait. Si c pas bon, cmt faire pour démarrer avec l'identification?

MErci de m'aider

[antp]

C'està toi de voir, mais autant créer la form principale quitte à la laisser invisible, puis ensuite créer les autres (splash, etc.)

[SkyDev]

Oui exact, j'ai trouvé un moyen. Merci bcq