美女，据说是CSDN上的！

Question

不好意思了兄弟姐妹们。我想只有这个题目才能吸引大家近来看看哦！得到一个FORM的名字（string型)，
比如frm_test,怎么样将这个FORM实例化呢,
也就是怎么通过application.createForm(tfrm_test,frm_test)
创建并且show Form呢，这里的tfrm_test,frm_test可
不是STRING型哦！
createForm是这样的
procedure CreateForm(InstanceClass: TComponentClass; var Reference); virtual;大家骂我打我吧。只要能解决这个问题！

Answer 1

不知道，你先找到FORM的母容器吧

Answer 2

MDI?换成这个可以吗？不太明白，MM在哪里呢？？？
Procedure openform(formclass:tformclass;var fm;Aowner:tcomponent);
var
  i:integer;
  child:tform;
begin
  for i:=0 to screen.FormCount -1 do
    if screen.Forms[i].classtype=formclass then
      begin
        child:=screen.Forms[i];
        if child.windowstate=wsminimized then
          showwindow(child.Handle,sw_shownormal)
        else
          showwindow(child.Handle,sw_showna);
        if (not child.Visible) then
          child.Visible:=true;
        child.BringToFront;
        child.setfocus;
        tform(fm):=child;
        exit;
      end;
  child:=tform(formclass.NewInstance );
  tform(fm):=child;
  child.Create(Aowner);
end;