如何动态打开和关闭一个窗体

Question

不知你什么意思；
动态建立：
var  
  chdform:Tchdform;
begin
  try 
   chdfrom:=TchdForm.create(application);
   chdform.show//show;
  finally 
   chdform:=nil;
....
在关闭事件里写：
  active:=crfrre;//时间长没有用了，好像就这么写

Answer 1

不知你什么意思；
动态建立：
var  
  chdform:Tchdform;
begin
  try 
   chdfrom:=TchdForm.create(application);
   chdform.show//show;
  finally 
   chdform:=nil;
....
在关闭事件里写：
  active:=crfrre;//时间长没有用了，好像就这么写

Answer 2

在Form2的OnShow事件中写：Form1.close

Answer 3

当前打开的不一定是哪个FORM，要创建的也不一定是哪个FORM

Answer 4

这里是BCB代码，Delphi也差不多的，懒的写了。
    for (i = 0; i < frmProcess->ComponentCount; i++) {
        if (frmProcess->Components[i]->ClassNameIs("TChildForm")) {
            ((TChildForm *)frmProcess->Components[i])->CLose();
        }
    }

Answer 5

不知你什么意思；
动态建立：
var  
  chdform:Tchdform;
begin
  try 
   chdfrom:=TchdForm.create(application);
   chdform.show//show;
   self.self.ActiveMDIChild.Close;(或者self.ActiveMDIChild .Free)
  finally 
   chdform:=nil;
. 

Answer 6

不知你什么意思；
动态建立：
var  
  chdform:Tchdform;
begin
  try 
  self.self.ActiveMDIChild.Close;(或者self.ActiveMDIChild .Free) 
 chdfrom:=TchdForm.create(application);
   chdform.show//show;
  
  finally 
   chdform:=nil;
.
上面写错

Answer 7

我 的 方法 :
首先在Delphi的option 页中将要动态生成的窗体放在右边栏中,
设要动态生成的窗体为formchild,在调用他的事件中输入代码:
FormChild:=TFormChild.Create(Application);
FormChild.show;//或者FormChild.ShowModal;
关闭该窗体时在onclose事件中调用如下代码:
Action:=CaFree;