L
leadroy
Unregistered / Unconfirmed
GUEST, unregistred user!
我在网上看到了这个方法，具体的方法是这样的。
我们在做一个比较大的系统(采用MDI方式)的时候，希望项目中的菜单、窗体全部是动态创建的，这样的话，程序员就很容易利用数据库将这些内容储存起来，需要的时候再根据这个用户的权限来取得相应的记录，根据这些记录来创建菜单、表单等!
在这个过程中，我们必须面对的一个问题是： 在储存窗体对象的时候我们只能储存它的对象名(字符串)， 但我们在程序中如何实现将字符串“转换”为对象名呢？(注：我这里用引号把“转换”引起来是因为：字符串是不可能转换为对象名的)
这个功能其实在一些伪编译的开发工具中，如VF中就比较容易实现，如在VFP中只要用一个“&”运算符就可以实现了!但由于DELPHI是一个编译程序，所以不可能这么去处理的!
我们来看下面的简单例子：
//为了简单起见，在这里我没有写数据库操作的代码，只是直接写了一个字符串，实际使用的时候可以根据实际情况来写!
1、在DELPHI集成开发环境中关闭所有的项目；
2、建立一个新的MDI应用程序项目：file->new->other->projects->MDI Application;
3、编辑MainMenu1，添加一个菜单项TestChange,并双击这个菜单项，编辑代码如下：
4、在主窗口(mainform)中写上以下代码，以便调用你想要的窗口
procedure TMainForm.Da1Click(Sender: TObject);
var
Child: TForm;//声明一个TForm类型的变量，做为显示子窗口的名称变量
begin
{ create a new MDI child window }
Child := GetClassName('TMDIChild');//TMDIChild就是你在数据库存储的，子窗口的类名!
Child.Caption := 'hello world'; //设置窗体标题
Child.Show; //显示这个窗体
end;
5、编辑GetClassName函数：
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
Function GetClassName(tmpClass:String):TForm; //记得要在程序开头做声明
public
{ Public declarations }
end;
....
function TMainForm.GetClassName(tmpClass:String):TForm;
var
cClass:TClass;
begin
cClass:=GetClass(tmpClass);//取得类名
if cClass <>nil then //如果这个类已经注册
application.CreateForm(TComponentClass(cClass),result);//创建这个类的实例
end;
5、在TMDIChild窗口中注册这个窗口的类：
initialization
registerClass(TMDIChild);
finalization
unregisterClass(TMDIChild);//注册完了当然要释放掉它了
这样你就可以完成类似于VF中的&这个宏替换的功能了!
不知道是不是这个标题有点太过夸张了？吓着你了吧!
----------------------------------------------------
我新建了一个简单的程序，只有二个窗口，使用这个方法一点问题都没有。但是我在我的系统中使用这个方法后GetClassName得到的是空值，程序一定都没有问题。
只有我系统中的窗体是从我一个模板中继承下来的，这样使用registerClass(TMDIChild)是不是不能注册，如不能注册，请高手提供一下解决方案。
[red]使用这个功能是为了单据审核做的，当客户需要审核一个单子的时候，我会在相应的表中建立一条记录，上面有窗口的名称及单号，只要审核者点这个记录，他就可以动态的打开这个窗口，并定位到这个记录上。所以这个事很急，不然下来审核做不了了。[/red]
我们在做一个比较大的系统(采用MDI方式)的时候，希望项目中的菜单、窗体全部是动态创建的，这样的话，程序员就很容易利用数据库将这些内容储存起来，需要的时候再根据这个用户的权限来取得相应的记录，根据这些记录来创建菜单、表单等!
在这个过程中，我们必须面对的一个问题是： 在储存窗体对象的时候我们只能储存它的对象名(字符串)， 但我们在程序中如何实现将字符串“转换”为对象名呢？(注：我这里用引号把“转换”引起来是因为：字符串是不可能转换为对象名的)
这个功能其实在一些伪编译的开发工具中，如VF中就比较容易实现，如在VFP中只要用一个“&”运算符就可以实现了!但由于DELPHI是一个编译程序，所以不可能这么去处理的!
我们来看下面的简单例子：
//为了简单起见，在这里我没有写数据库操作的代码，只是直接写了一个字符串，实际使用的时候可以根据实际情况来写!
1、在DELPHI集成开发环境中关闭所有的项目；
2、建立一个新的MDI应用程序项目：file->new->other->projects->MDI Application;
3、编辑MainMenu1，添加一个菜单项TestChange,并双击这个菜单项，编辑代码如下：
4、在主窗口(mainform)中写上以下代码，以便调用你想要的窗口
procedure TMainForm.Da1Click(Sender: TObject);
var
Child: TForm;//声明一个TForm类型的变量，做为显示子窗口的名称变量
begin
{ create a new MDI child window }
Child := GetClassName('TMDIChild');//TMDIChild就是你在数据库存储的，子窗口的类名!
Child.Caption := 'hello world'; //设置窗体标题
Child.Show; //显示这个窗体
end;
5、编辑GetClassName函数：
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
Function GetClassName(tmpClass:String):TForm; //记得要在程序开头做声明
public
{ Public declarations }
end;
....
function TMainForm.GetClassName(tmpClass:String):TForm;
var
cClass:TClass;
begin
cClass:=GetClass(tmpClass);//取得类名
if cClass <>nil then //如果这个类已经注册
application.CreateForm(TComponentClass(cClass),result);//创建这个类的实例
end;
5、在TMDIChild窗口中注册这个窗口的类：
initialization
registerClass(TMDIChild);
finalization
unregisterClass(TMDIChild);//注册完了当然要释放掉它了
这样你就可以完成类似于VF中的&这个宏替换的功能了!
不知道是不是这个标题有点太过夸张了？吓着你了吧!
----------------------------------------------------
我新建了一个简单的程序，只有二个窗口，使用这个方法一点问题都没有。但是我在我的系统中使用这个方法后GetClassName得到的是空值，程序一定都没有问题。
只有我系统中的窗体是从我一个模板中继承下来的，这样使用registerClass(TMDIChild)是不是不能注册，如不能注册，请高手提供一下解决方案。
[red]使用这个功能是为了单据审核做的，当客户需要审核一个单子的时候，我会在相应的表中建立一条记录，上面有窗口的名称及单号，只要审核者点这个记录，他就可以动态的打开这个窗口，并定位到这个记录上。所以这个事很急，不然下来审核做不了了。[/red]
