在我的项目中我有两个表单(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(使用前将#替换为@)