如何在主窗体之前显示设置配置的窗体?

2024-03-07

在我的项目中我有两个表单(form1,form2),form1是配置表单。

我想显示 Form1,当我们单击 Button1 时,然后显示 Form2 和释放(释放)Form1。我该怎么做?

我用这个代码。但是这个项目启动然后自动退出。一位朋友说因为应用程序消息循环永远不会启动,并且应用程序因主窗体不存在而终止。我怎样才能解决这个问题?

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TForm2, Form2);
  Release;
end;

///

program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Form1:= TForm1.Create(Application);
  Application.Run;
end.

完全按照问题标题中的要求进行操作:创建并显示配置表单,然后创建并显示主表单。诀窍在于how你创造了它们。仅使用Application.CreateForm对于您想要作为主要表单的一种表单。 http://www.cs.wisc.edu/~rkennedy/createform对所有其他形式使用普通的对象创建技术。

像这样修改您的 DPR 文件:

var
  ConfigForm: TConfigForm;
begin
  Application.Initialize;

  ConfigForm := TConfigForm.Create(nil);
  try
    if ConfigForm.ShowModal <> mrOK then
      exit;
  finally
    ConfigForm.Free;
  end;

  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

如何在主窗体之前显示设置配置的窗体? 的相关文章

随机推荐