procedure TForm1.Button1Click(Sender: TObject);
begin
if findwindow(nil,'form2')=null then
begin
form2:=tform2.Create (self); //建立窗体,用于显示图形
end
form2.Show;
end;
对于窗体form2,己经在project1的代码中,把Application.CreateForm(TForm2, Form2)删掉了。窗体form1中放置了一个按钮。在这个按钮的单击事件中,写下以上的代码!
然后保存!
再在delphi中打开这个工程,要是在设计没有按view form(shift+F12)打开过form2,则运行时按button1可以得到看到form2这个窗体的结果;要是按view form打开过form2,则编译运行时会报错。不过在关闭delphi后,再运行这个程序还是正常的。
请问有什么玄机吗?