请教显示窗体问题！

Question

正常显示窗体如下：
application.CreateForm(tform1,form1);如果tform1和form1都从数据库中提取该如何做？表：table1
字段： tname    name
       tform1   form1
       tform2   form2
       --       --
       tformn   formn

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
name:TForm;
begin
   name:=TFORM.Create(nil);
   name.Caption:='formname';
   name.Show;
end;

Answer 2

to  zxfsdbj(飞飞猫) :没理解

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
name:TForm;
begin
   name:=TFORM.Create(nil);
   name.name:='formname';//formane为你从库中取的
   name.Show;
end;

Answer 4

我的是mdi主窗体点击显示子窗体。
子窗体为已有的做好的功能窗体，通过数据库表调用。
大家继续帮忙！

Answer 5

既然你的子窗体都已经创建好的，又不是动态创建的，有什么问题呢？
int FormIndex;
FormIndex=YourQueryRecordIndex;
switch(FormIndex)
{ case 0:  YourForm1->Show;
  case 1:  YourForm2->Show;
  ...
  default:
}

Answer 6

保存所有的控件及状态,在creatform中动态建立并设定.
你这种方式大麻烦了,干脆不要用delphi,用asp或asp.net算了.

Answer 7

to aluosheng(aluosheng):
谢谢！
大家继续！
比如用此句实现的具体格式是什麽？有吧？
application.CreateForm(字段1,字段2);表：table1
字段： tname    name
--------------------------
       tform1   form1
       tform2   form2
       --       --
       tformn   formn
application.CreateForm(tname,name);
直接写肯定不行