DELPHI动态创建窗体

本文主要是介绍DELPHI动态创建窗体，对大家解决编程问题具有一定的参考价值，需要的程序猿们随着小编来一起学习吧！

//第一种方式
procedure TForm1.btn1Click(Sender: TObject);
begin
With TForm2.Create(Application) do
Try
   ShowModal;
finally
   free;
end;
end;
 
//第二种方式
procedure TForm1.btn2Click(Sender: TObject);
begin
  if not assigned(Form2) then
  begin
    Form2:=TForm2.Create(nil);
    Form2.Show;
  end
end;
 
//第二种方式创建的的窗体需要在FORM2里释放资源
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Form2:=nil;           //Form对象指向空地址
  Action := cafree;     //Form关闭后释放占用的内存
end;

1.引用 TFORM2.

2.在FORM1中使用如下代码创建

这篇关于DELPHI动态创建窗体的文章就介绍到这儿，希望我们推荐的文章对大家有所帮助，也希望大家多多支持为之网！