Discussion :

[Benjamin GAGNEUX]

Salut,

Je souhaiterais remplacer ma fenêtre de connection (modal) par une fenêtre fille(MDIChild) de la fenêtre principale(MDIForm). Ainsi la fenêtre par défault de ma MDIForm est la fenêtre de login.

voici comment je charge la MDIChild :

Code :

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

1
2
3
 
   with TFrmConnection.Create(Application) do
    Show;

Mais je n'arrive pas à lancer l'application...
J'obtiens le message 'Impossible de créer la fiche. Aucune fiche Non MDI active'.
Je ne comprends vraiment pas ce qui ne fonctionne pas

Merci,

[Pierre Castelain]

Les fenêtres MDI s'affichent dans une fenêtre mère (non MDI). C'est cette dernière qui doit être créée en premier, ce qui n'a pas l'air d'être le cas.

[anapurna]

salut


de plus la fentre fille mdi doit avoir comme owner et parent
la fenetre mere et non l'application
pour creer ta fenetre fait

Code :

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

 TFrmConnection.Create(self).Show;

@+ Phil

[Benjamin GAGNEUX]

salut,

Pierre Castelain -> Les fenêtres MDI s'affichent dans une fenêtre mère (non MDI).

Je ne comprends pas, mon application est bientot terminé, et pour un souci d'esthétique, je voulais remplacer la fenetre de connexion par une fille MDI, la fenetre mère est de style fsMDIform et marche bien avec les autres fenetres filles. alors pourquoi enlever MDI ?

anapurna -> de plus la fentre fille mdi doit avoir comme owner et parent la fenetre mere et non l'application

bien vu, mais cela ne résoud pas le problème.

En fait, tout l'ensemble marche si je lance la fenetre fille avec un menu de la fenetre mère. Le problème est comment lancée la fenetre fille lors du lancement de la fenetre mere?
Je souhaiterais que cette fenetre fille soit la fenetre par default de la fenetre mere.

merci de votre aide.

[anapurna]

salut

non pierre te dit que la fenetre mere et non mdi a l'inverse des
fenetre fille

pour ton probleme tu peut tres bien dans le formcreate de ta fenetre mere lancer la creation de ta fenetre fille
je ne comprend pas ton probleme

@+ Phil

[Benjamin GAGNEUX]

Justement, la ligne de création de la fenetre fille est dans le oncreate de la mere, et j'obtiens ce message d'erreur.

[anapurna]

salut

je vient de faire le test effectivement ca plante car la fenetre mere n'est pas encore active pour palier a ça il faut redefinir la methode

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dans le TFormMain = 
  ....
procedure Activate;Override;
...
End;
 
 
procedure TfMain.Activate;
begin
  inherited Activate;
  Tfrmmdi.Create(Self).Show;
end;

@+ Phil

[Benjamin GAGNEUX]

Je n'y avais pas pensé mais malheureusement il me sort le meme message d'erreur.

[anapurna]

salut

a bin la y'a d'autres soucis parceque sur mon appli ça a marché
parfaitement

tu fait bien un create(self) et non pas application ?

@+ Phil

[Benjamin GAGNEUX]

Curieux ca alors ?

Y a 2 sec ca ne marchait pas... je vérifie les propriétés sans rien changer ... et la ca marche ... : : :

Encore un mystère qui restera mystère....

En tout cas, merci beaucoup pour ton aide, cela marche beaucoup mieux.


A+
Ben

[Pierre Castelain]

Attention avec l'événement Activate, celui-ci est déclenché à chaque fois que la fenêtre redevient active et non pas une seule fois.

[Benjamin GAGNEUX]

merci,
j'utilise l'événement OnCreate de la fenetre mere pour charger cette fenetre. Ca marche impeccable.

A bientot
ben

[Benjamin GAGNEUX]

rectification : La fenetre se charge en tant que fenetre indépendant et non MDIChild.

Ne peut-on pas créer de fenêtre fille au démarrage ?

(car toutes les autres fenetres filles MDI sont accessible depuis le menu et fonctionnent très bien)

[Benjamin GAGNEUX]

Ca y est, j'ai trouvé, la fiche principale doit avoir sa propriété Visible à False.

Donc, je résume pour ceux qui rencontreront le même problème.
(cad le message 'Impossible de créer la fiche. Aucune fiche Non MDI active')


Lors du développement d'une application MDI.
- La fenetre principale doit avoir les options suivantes :
FormStyle := fsMDIform,
Visible := False,
- La fenetre fille à lancer au démarrage doit etre ainsi :
FormStyle := fsMDIChild,
Visible := True.

Pour le chargement de la fenêtre au démarrage, il fat agir sur le MaFenetrePrincipal.OnShow.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure MaFenetrePrincipal.FormShow(Sender: TObject);
var
  Bcl : integer;
begin
  for Bcl := 0 to MDIChildCount-1 do
    if (MDIChildren[Bcl] is TFrmConnection) then begin
      MDIChildren[Bcl].BringToFront;
      MDIChildren[Bcl].WindowState := wsMaximized;
      Exit;
    end;
 
   TFrmMaFenetreFille.Create(Self).Show;

Et voila !

Merci à tous ceux qui m'ont aidés.
A bientot et bon dev
Ben