Où est le nom "Formulaire principal" stocké dans Delphi?

Question

Quel fichier physique stocke le nom de formulaire principal pour une application Delphi?

par exemple. MyApplication a un formulaire MyForm qui est défini comme "Formulaire principal" via les options du projet. Où est stockée l'information "Main Form = MyForm"?

Dans l'IDE Delphi, l'application "Formulaire principal" est spécifiée via le menu: Project | Options | Forms.

Le fichier évident serait le .bdsproj ou le .dpr mais il ne semble y avoir rien dans l'un de ces deux qui indique quelle forme est la "principale".

Answer 1

Il se trouve dans le fichier projet (.DPR). Le premier appel à Application.CreateForm() avec un formulaire en tant que paramètre identifie le formulaire principal de l'application.

Notez qu'un TDataModule ne satisfait pas à la condition ci-dessus; C'est utile, car vous pouvez créer automatiquement un datamodule avant votre formulaire principal, puis accéder à ce datamodule dans le constructeur du formulaire principal.

Answer 2

Juste pour ajouter à la réponse de Ken White.

Si vous regardez la source CreateForm:

procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference); 
var 
    Instance: TComponent; 
begin 
    Instance := TComponent(InstanceClass.NewInstance); 
    TComponent(Reference) := Instance; 
    try 
    Instance.Create(Self); 
    except 
    TComponent(Reference) := nil; 
    raise; 
    end; 
    if (FMainForm = nil) and (Instance is TForm) then 
    begin 
    TForm(Instance).HandleNeeded; 
    FMainForm := TForm(Instance); 
    end; 
end; 

Vous voyez que la fonction (malgré son nom) peut être utilisé pour créer d'autres composants. Mais seul le premier composant qui est un TForm et qui est créé avec succès, peut être la forme principale.

Et puis une diatribe sur les variables globales.

Les globals globaux sont souvent incorrects, mais pour un objet application et un objet mainform, vous pouvez créer une exception. Bien que vous pouvez omettre le global pour la mainform mais vous devez modifier le DPR fichier vous-même:

Change:

begin 
    Application.Initialize; 
    Application.CreateForm(TMyMainForm, MyMainFormGlobal); 
    Application.Run 
end. 

Pour:

procedure CreateMain; 
var 
    mainform : TMyMainForm; 
begin 
    Application.CreateForm(TMyMainForm, mainform); 
end; 

begin 
    Application.Initialize; 
    CreateMain; 
    Application.Run 
end. 

Et vous avez perdu toutes les formes mondiales.