标签:TForm2 begin end Sender DELPHI 动态创建 Form2 窗体 TObject
//第一种方式
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中使用如下代码创建
标签:TForm2,begin,end,Sender,DELPHI,动态创建,Form2,窗体,TObject 来源: https://blog.csdn.net/qq_33577118/article/details/118864377
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。