Delphi在Form1中通过一个按钮动态创建窗体Form2 怎么做

Posted 2023-04-12

新建了两个窗体form1和form2，在Project->Options里面将form2设置为Available forms,在form1中添加一个button1，运行如下代码：
Uses Unit2; //引用单元文件
procedure TForm1.Button1Click(Sender: TObject);
begin
form2:=TForm2.Create(Application); //创建窗体
form2.Show; //显示窗体
end;
end. 参考技术A 先声明一个 Form2:=TForm;
然后再按钮事件里面添加 Form2:=TForm.Create(Self);
然后 Form2生成了 在里面干什么自己做吧 比如 from2.width 或者left 什么的 自己要需求来做 哦 对了 要看的话 Form2.show
动态创建应该是这样吧 许久不用有点生疏了 大致没错 你试试看就明白了 参考技术B 首先要有一个Form2的实例；
按键按下时，form2：=Tform2.create（）；
就行了

delphi 如何在两个窗体间切换

form1为主窗体，当单击FORM1上的按钮时切换到FORM2。这怎么弄啊？

参考技术A 在form1的implementation下写入
uses unit2;

在form1的按钮中写
form2.show; 参考技术B form1.hidden();
form2.show(); 参考技术C form2是form1的子窗体：
如果需要form2执行完关闭后，再继续执行form1,用form2的showmodal；
如果需要form2执行过程中，可以操作form1，用form2的show。
var
frm2:TForm2;
begin
frm2:=TForm2.Create(nil);
frm2.show;//不需要form2执行完
try
if frm2.showmodal=mrCancel then;//需要form2执行完
begin
//xxxxx
end;
finally
frm2.free;
end;

end;