P prj Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-07 #1 日前，我碰到一个问题，就是将几个form的名称存入一个表里，然后根据当前记录的内容动态显示表单（用form.show）。试了几次未成功，请各位指教。谢谢！
H hnxx2003 Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-07 #2 你可以根据所选内容后再查询相关信息。 用一个窗体就行。
H hgc9806 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-23 #4 什么意思呢？不明白，判断一下，当前记录是多少，就调用哪个了
A andy-23 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-25 #5 case 记录号 of 1: form1.show; 2: form2.show; 3: ... end; 应该只能这样，我在想如何通过变量来调用就好!!
A arbil Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-25 #6 定义一个变量类型为Tform，从表中查询出表单名称斌值给变量：如 var frm_var:Tform; begin …… frm_var:=XXXX(表中查询出的表单名称); tform(frm_var).show; …… end;
定义一个变量类型为Tform，从表中查询出表单名称斌值给变量：如 var frm_var:Tform; begin …… frm_var:=XXXX(表中查询出的表单名称); tform(frm_var).show; …… end;
G gyh75 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-25 #7 TestID为数据字段 var FormName, TestID: string; begin FormName := 'Tfrm' + TestID; try with TFormClass(GetClass(FormName)).Create(nil) do try ShowModal; finally Free; end; end; 每个Form中加上： initialization RegisterClass(TFromXXX);
TestID为数据字段 var FormName, TestID: string; begin FormName := 'Tfrm' + TestID; try with TFormClass(GetClass(FormName)).Create(nil) do try ShowModal; finally Free; end; end; 每个Form中加上： initialization RegisterClass(TFromXXX);
