Choose MainForm from a list of available forms

前端 未结 2 717
一生所求
一生所求 2021-01-21 05:04

Is it possible to choose a form (as a mainform) from a list of \"available\" forms after connecting to the database ? I have a datamodule with 3 \'available\' forms.No mainform

2条回答
  •  渐次进展
    2021-01-21 05:39

    The main form is deemed to be the first form created by a call to Application.CreateForm. So add your selection logic to the .dpr file code, and then call Application.CreateForm to create whichever form the user selects.

    // .dpr code
    begin
      Application.Initialize;
      CreateMainForm;
      Application.Run;
    end.
    

    Here, CreateMainForm is provided by you and implements the user form selection. It might go like this:

    procedure CreateMainForm;
    var
      Form: TForm;
      FormClass: TFormClass;
    begin
      FormClass := ChooseMainFormClass;
      Application.CreateForm(FormClass, Form);
    end;
    

    Again, ChooseMainFormClass is provided by you.

提交回复
热议问题