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

2025-03-01 16:16:06
推荐回答(3个)
回答(1):

新建了两个窗体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.

回答(2):

先声明一个 Form2:=TForm;
然后再按钮事件里面添加 Form2:=TForm.Create(Self);
然后 Form2生成了 在里面干什么自己做吧 比如 from2.width 或者left 什么的 自己要需求来做 哦 对了 要看的话 Form2.show
动态创建应该是这样吧 许久不用有点生疏了 大致没错 你试试看就明白了

回答(3):

首先要有一个Form2的实例;
按键按下时,form2:=Tform2.create();
就行了