delphi – 从可用表单列表中选择MainForm

在连接到数据库后,是否可以从“可用”表单列表中选择一个表单(作为主表单)？我有一个3’可用’形式的数据模块.暂时没有主要形式.首先创建数据模块.现在,我想根据用户登录的数据库选择表单,并使其成为mainform.可以这样做,怎么做？ 主窗体被认为是通过调用Application.CreateForm创建的第一个窗体.因此,将选择逻辑添加到.dpr文件代码中,然后调用Application.CreateForm以创建用户选择的任何形式.

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

在这里,CreateMainForm由您提供并实现用户表单选择.它可能会像这样：

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

同样,ChooseMainFormClass由您提供.