我把窗体的类名存在数据库中,如何创建它?

[COMPUTERZZZ]

我把窗体的类名存在数据库中,如何创建它?
我的程序如下:
//取程序号
ClassName:=mListItem.SubItems[1];
FFrmName:=ClassName;

// ClassName:= 'Form2'; //从数据库取出窗体名,如: s:= ADODataSet.FieldValue['窗体'];
// if self.IsFormExist then
// MyForm.BringToFront
// else
// begin
MyForm:= TForm.Create(self);
//MyForm.FormStyle:=fsMDIChild;
// MyForm.ParentWindow:=self.Handle;
MyForm.Name:= Classname;
MyForm.ShowModal;
FreeAndNil(MyForm);

这样出来的只是一个空白的窗体,不是我自已做的窗体!!!

[bdmh]

http://topic.csdn.net/t/20050610/15/4073764.html

[COMPUTERZZZ]

这个跟我的不一样呀,我是用动态生成菜单,然后在点菜单时,又从数据库中找到窗体类名,创建对应窗体!

[还是江筱吧]

估计要用到数组，只是有个想法而已。

[不得闲]

TFormClass(GetClass('类名')).Create(nil)

[icyf]

var
AFormClass:TComponentClass;//TFormClass也可以。
AForm: TForm;
begin
AFormClass := TComponentClass(GetClass('TSomeFormClassName'));//如果用FindClass的话，TSomeFormClassName又没有注册，则会抛出一个异常
if AFormClass <> nil then
begin
Application.CreateForm(AFormClass,AForm);
AForm.Show;
end;
end;