Discussion :

[FranT]

Dans mon projet, qui contient 2 form, j'ai écrit:

Code :

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

1
2
3
4
5
6
 
procedure Demarrage
begin
   If FileExists ('C: UnFic.txt') then Form2.Show
       Else Form1.Show;
end;

Cette procédure est executée au lancement du prog depuis le fichier .dpr.
Le pb, c'est que quand Form2 s'affiche Form1 apparait aussi. Aprés avoir cherché, j'ai cru comprendre que Form1 s'affichait dans tous les cas parce qu'elle est la fiche principale du programme, c'est-à-dire celle qui doit s'afficher toujours en premier (dites-moi si je me trompe...).
Question: comment faire pour que la fiche principale ne s'affiche qu'en temps voulu et non pas de façon systématique?
Merci.

[Lung]

Peut-être en la cachant, quand ce n'est pas à elle de s'afficher.

Petit détail en passant, l'adresse de ton fichier est bizarre :

Code :

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

'C: UnFic.txt'

Il ne manque pas un \ :

Code :

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

'C:\UnFic.txt'

[FranT]

Merci Lung, mais faire un .Hide est évidemment la première chose qui m'est venue à l'esprit. Le seul pb, c'est que ça ne marche pas.

[Lung]

Tu fais bien ton test dans le source de ton projet ?
Tu pourrais spécifier que ta Form1 n'est pas la Form principale.
Je sais qu'il y a une fonction pour définir la Form principale.

[Lung]

En fait, la première Form créée sera la Form principale.
En fonction de ton test, tu créer les Form dans l'ordre qui convient, et tu affiche la Form principale.

C'est du bricolage, mais bon ...

[FranT]

Je vois pas trop ce que tu veux dire, Lung. Puisque chacune des fiches est susceptible d'être affichée, ça changerait quoi de créer l'une avant l'autre?
Quant à ne pas définir de fiche principale, je veux bien mais dans Projet--- Options, il faut forcèment une fiche principale...

J'ai aussi essayé de combiner Form2.Free + Form1.Show, et là les 2 fiches ont disparu de l'écran et le prog s'est terminé comme ça.

[Pierre Castelain]

La solution la plus simple en admettant que l'appli contient deux fenêtres seulement. Dans le DPR, modifier le code pour obtenir ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin
  Application.Initialize;
  if FileExists('C:\UnFic.txt') then
  begin
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
  end
  else
  begin
    Application.CreateForm(TForm2, Form2);
    Application.CreateForm(TForm1, Form1);
  end;
  Application.Run;
end.

[FranT]

Merci Pierre. Ta solution me donne déja quelques nouvelles idées et comme d'habitude je me dit: "Comment n'y ai-je pas pensé plus tôt...". :o

[Smortex]

Mieux :

Code :

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

1
2
3
4
5
6
 
  Application.Initialise;
  Application.ShowMainForm := False;
  Application.CreateForm(TForm1, Form1); 
  Application.CreateForm(TForm2, Form2); 
  Application.Run;

Ca permet de n'afficher aucune fiche au démarrage du programme !

Bon développement :

[FranT]

Oui, c'est effectivement pas mal pour ne pas dire génial. Merci à tous pour votre coup de main.